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INTRODUCTION 


This report describes the usage of a computer program for 
calculating lateral-directional stability and control derivatives 
as described in reference 1. The method is applicable to wing- 
body combinations in subsonic flow. 

In the following, a summary of the theoretical method, 
program capabilities, input format, output variables and program 
job control set-up are described. Then, input data of sample 
test cases and the corresponding output are given. The program 
listing is presented at the end. 

SUMMARY OF THE THEORETICAL METHOD 
The method is based on the Prandtl-Glauert equation in subsonic 
flow. The wing is assumed to be thin, so that thickness effect 
is not included. In the following, theoretical representation 
of the effects of wings, vortex flow and fuselage is summarized. 

Note that the effect of boundary layer separation is not accounted 
for. The wing wake is assumed to be flat. 

(1) Wing Representation 

The wing effect is represented by using a vortex 
distribution. The resulting integral equation for the wing 
surface boundary condition (i.e. flow tangency) is solved 
through the Quasi-Vortex-Lattice Method (QVLM) (ref . 2) . 

The solution of the equation is the spanwise vortex density 
(y ) which is used to obtain the loading under symmetrical 
flight conditions. In addition, by calculating the net 
upwash along the leading edge using the predicted y distribution. 
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the leading-edge thrust can also be calculated (ref. 2). 

Note that the leading-edge thrust is parallel to the plane 
of symmetry and is a component of the leading-edge suction. 

The latter is perpendicular to the leading edge. For a 
cambered wing, the relation between the leading-edge thrust 
and suction can be found in reference 3. 

For the calculation of side-edge suction and lateral- 
directional characteristics, the most important quantity 
needed is the streamwise vortex density (y x ) . It is calculated 
by satisfying the conservation of vorticity, 

3 Y 

-r-S + -r-* = 0 (1) 

3 x 3 y 

In much the same way as using Yy to calculate the longitudinal 
characteristics, both Y y and y x are used to calculate the 
lateral-directional loading (refs. 1 and 2). 

For a steady rolling wing, the viscous boundary layer 
tends to flow toward the wing tips, so that the effective 
overall angle of attack is reduced. In the program, an approximate 
method based on the boundary layer thickness of a rotating disk is 
used to estimate this reduction in angle of attack(ref. 1). 

(2) Vortex Flow 

To account for the effect of edge-separated vortex flow, 
Polhamus' method of the suction analogy (ref. 4) is extended 
to include the lateral-directional motion. In addition, 
the following features are also incorporated in the code. 

(a) Augmented vortex lift effect. 


For wings with a nonzero tip chord or with swept 
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trailing edges, the leading-edge vortex may pass over 
an additional (or less) planform area before reaching the wake. 
The vortex lift induced on the downstream planform 
area is called the augmented vortex lift (ref. 5) 

(b) Strake Vortex 

A strake vortex not only produces the augmented 
vortex lift, but also induces downwash inboard «nd 
upwash outboard of the strake-wing juncture. To account 
for this effect, a discrete vortex starting from the 
juncture to downstream infinity is introduced. The 
strength of this discrete vortex is calculated by 


equating the vortex lift to the Kutta-Joukowski force: 
2 

?$ P V oo C s c d y “ P r W£ e d£ 


( 2 ) 


where c g is the sectional leading-edge suction coefficient, 
T is the equivalent circulation per unit length of the 
leading edge, w^ e is the upwash at the leading edge 
and Z is the length measured along the leading edge. 

The total circulation or the vortex strength is then 


r t -/?*-* f v 

. 00 J w 

He Ze 7T- 


dy 


( 3 ) 


Z.e. 


Since both c and w. depend on T. , the circulation 
is determined iteratively. 

(c) Vortex lift on wings with rounded leading edges 

The vortex lift on a wing with rounded leading 
edges is known to have a value less than that with 
sharp edges. The method used to estimate the reduced 
vortex lift in the code is based on Kulfan's concept 
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(refs. 6 and 7). In the latter, the sectional angle 


of attack (o ) at which the vortex separation first 
occurs is calculated by equating the leading-edge 
thrust to the leading-edge drag. For a symmetrical 
wing, the result is (ref. 1) 

. -1 „ sina , 2r o * cosA £ 

“-- Sin (i — ..2 2. ■ > 


(1-M^cos A^) 


f 

where C is the leading-edge singularity parameter 
at a given by 


( 4 ) 


, x-x« , 

C = tan Y ( — ^ )* (5) 

3Wt» y 

and r Q is the*" leading-edge radius. 

For a cambered wing, equation (4) is revised to be 


a 

s 


sina+a 1 2r , cosA» 

sin {± (— r - )^ 7 ==s==s=--a } (6) 

c • c /i-m^cos a £ 1 


where appears in the expression for leading-edge 

suction (c ) as follows 
s 

c = K [sina+a 1 ]^ (7) 

S X 

where K is a function of geometry and Mach number. 

If c^ is the leading-edge suction coefficient for the 
corresponding noncambered wing, then can be calculated 
as 


a. 


( / 1) sina 


(d) Vortex Breakdown 

To predict the vortex breakdown effect, it is 
necessary to have the following information: 


( 8 ) 


A 


(1) the angle of attack for vortex breakdown at the 
trailing edge (a^) for any planforms; 

(2) the progression of the breakdown point when 

° ' °BD J 

(3) the amount of remaining vortex lift in the region 
of breakdown. 

In the present method, the calculated leading-edge 

suction distribution (c c) is used to correlate with 

s 

the experimental data of Wentz (ref. 8) for the needed 

information mentioned above. 

(3) Body Representation 

The influence of fuselage on the flow field is represented 
by Ward' s vortex multiplets (ref. 9) distributed along 
the fuselage centerline. Although the method is applicable 
to arbitrary body cross sections, it has been implemented 
only for bodies of revolution with any radius variation. 
However, the wing-body interference has been properly accounted 
for. 


PROGRAM CAPABILITIES 

This program has the following main features: 

(1) It is applicable to nonplanar wing configurations in subsonic 
flow, including winglets, vertical fins, etc. The leading 
and trailing edges may be curved. Up to six (6) lifting 
surfaces can be accepted. For wings with dihedral, they 
may be represented by up to five (5) contiguous spanwise 
panels with different dihedral angles. 
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(2) It is also applicable to an asymmetrical configuration. 
Typical applications involve nonsymmetrical flap or aileron 
deflections . 

(3) General camber shapes may be defined at ten (10) or less 
spanwise stations. Option for exactly defining leading- 
edge flap geometry is also provided. 

(4) The twist distribution on lifting surfaces can be prescribed 
in a general way. 

(5) Nine (9) lateral-directional stability derivatives are 
calculated for both attached flow and vortex flow. For the 
latter, the effect of vortex breakdown is accounted for by 
an empirical method. 

(6) The control effectiveness for both longitudinal and later- 
directional motions can be calculated. 

(7) Ground effect under static conditions can also be calculated. 
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INPUT DATA FORMAT 


Group 1 

Title 
Group 2 

NCASE 

NGRD 

NASYM 


NSUR 

Group 3 
LAT 


IBLC 


Format (13A6), 1 card 

(I) A descriptive phrase describing the case to be run. 

Format 4(6X,I4), 1 card 

User's specified case number which may be arbitrary. 

■ 1 if the wings are in ground effect. 

= 0 if the wings are in free air. 

■ 0 if the planform is symmetrical about X-Z plane. 

= 1 if the planform is not symmetrical about X-Z plane. 

In this case, only one lifting surface without winglets 
is allowed, and the whole planform must be defined, 
starting from the left tip. 

Number of lifting surfaces, such as wing, canard, tails, 
etc. Limited to 6. Note . Winglets are not separate lifting 
surfaces. 

Format 4(6X,I4), 1 card 

= -1 if the rolling moment coefficient for a given aileron 
angle is to be computed. 

= 0 for symmetrical loading only 

* 1 if both symmetrical loading and lateral-directional 
derivatives are to be computed. 

For asymmetrical configurations (i.e., NASYM = 1), set LAT = 0. 
The resulting rolling and yawing moments are computed. 

= 1, if a boundary layer correction is to be applied to 
roll derivatives. 

=0, if no boundary layer correction is applied. 
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KT = 1, if the effect of rounded leading edges on vortex lift 
is calculated. 

■ 0, if full vortex lift effect is allowed. 

IBD ■ 1, if the vortex breakdown effect is included in calculating 
vortex lift. 

■ 0, otherwise. 

Groups 4 through 18 must be repeated NSUR times. The wing is the 1st surface . 
Group 4 Format 8(6X,I4) 

NC Number of spanwise sections on the right wing (bounded by points of 
discontinuities in geometry, such as change in sweep, edges of flap 
segments, panels with different dihedral angles, etc.) Limited to 5. 
(see Sketch 1). 

M1(I), 1=1, NC Number of spanwise strips in each spanwise section. 

There are NC numbers. Maximum total number of strips is 48. (See 
Sketch 1). A minimum of 2 should be used in each section. 

NWING The numerical value of last wing spanwise section, i.e., its most 
outboard section. 

IWGLT = 1 if a winglet is present. = 2 if a vertical fin is present 

inboard of wing tip. = 0, otherwise. (Winglet or vertical Fin must 

be on the wing) 

IPOS Winglet position indicator. The number used to identify the 
configuration in the code is based on whether the winglet is 
attached to the wing first or second chordwise section, 
respectively. It is indicated in sketch 2. If there is no 
winglet, it should be 0. 
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Note. For coplanar lifting surfaces, such as a coplanar wing-tail 


configuration, spanwise sections on both upstream and downstream 
surfaces must line up and numbers of spanwise strips in the corre- 
sponding spanwise sections must be the same. This is to avoid trail- 
ing vortices from passing over control points on the downstream 
surfaces. 



IPOS 



10 . 



20 . 



IPOS 



0 . 
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Group 5 Format 8(6X,I4) 

NFP Number of trailing-edge flap segments. Limited to 5. 

NJW(I), 1*1, NFP Numerical value of the spanwise section in which 

the trailing-edge flap segment is contained. For either clean 
or full-span flap configurations, set NFP=1 and NJW (1) * 1. 

(See Sketch 3) . 

NVRTX The spanwise strip number on a lifting surface, cumulative from 
its center line, at which and outboard of which the leading- 
edge vortex lift effect is not included. Full vortex lift 
effect is assumed if this value is set to zero. 

MVRTX The spanwise strip number on a lifting surface, cummulative 
from its center line, at which and inboard of which the L.E. 
vortex lift effect is not included. 

NLEF =1, if the flaps are flat leading-edge flaps. 

= 0, if the flaps are trailing-edge flaps. 

IV = 1, if the lifting surface has dihedral of 90-deg. and is 
situated on the plane of symmetry. 

=0, otherwise , 

NAL Numerical value of the aileron segment among the trailing- 
edge flap segments. For a all-movable surface for lateral 
control, NW(2) should be 0 for that surface (See Group 7). 


Group 6 Format 8F10.6, 1 card 

DF(I), 1=1, NFP Trailing-edge flap angles in degrees, inboard 

trailing-edge flap segment first. For leading-edge flaps, the 

* 

angles are negative for nose down. (See Note 1) . 

Group 7 Format 5(6X,I4), 1 card 

NW(1) Numbers of chordwise aerodynamic panels in chordwise sections 
NW(2) (See Sketch 3). The chordwise section may be bounded along 


* Notes appear at the end of this Section. 
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trailing-edge flap hinge line or winglet leading edge. NW(2) = 0 
for clean configurations. (NW(1) + NW(2) is limited to 15. 

Use at least 8 for NW(1) + NW(2) for cambered sections. 

ICAM ■ 0 for non-cambered airfoils 

= 1 if camber ordinates are to be read in. 

= 2 if camber slopes are defined analytically in subroutine ZCDX. 
■ 3 if there are flat leading-edge flaps attached to a non- 
cambered wing. 

1ST Number of y stations at which camber ordinates are read in. 
Limited to 10. If ICAM =3, 1ST is the number of leading- 
edge flap segments. If ICAM ■ 1, at least 2 y-stations are 
needed, to cover each surface, one at the root and the other 
at the tip. 

ICAMT Numerical value of the y-station at which and beyond which 
the input cambers are for the winglet or vertical fin. 

= 0 if there is no camber for the winglet or fin. 



Sketch 3 
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Omit Groups 8, 9, and 10 If ,ICAM ^ 1. Repeat Groups 8, 9, 10 1ST times. 

Group 8 Format 4F10.6 

YT(I) y-station (dimensional) at which camber ordinates are read in. 

XNUM number of camber ordinates to be read in. Limited to 21. 

CURV(I) = 0. if camber is to be formed by connecting straight segments, 
with first segment being regarded as flat leading-edge flap. 

= 1. if cubic spline interpolation is used. 

* 2. if cubic spline interpolation is used, with first segment 
being flat leading edge flap. 

CHND(I) Chord length at YT(I) station. 

Group 9 Format 8F10.6 

XT(I,J) x/c-values at which camber ordinates are read in for YT(I) station. 
Group 10 Format 8F10.6 

CA(J) z/c-values of camber ordinates at the corresponding XT(I,J)- 

locations. (See Note 2). 


Omit Groups 11, 12 and 13 if ICAM ^ 3. Repeat 1ST times. 


Group 1 1 Format 2F10.6 (See Note 3). 

YLEF (1,1) Extreme inboard y -coordinate of Ith flat leading-edge 
flap segment. 

YLEF (1,2) Extreme outboard y-coordinate of Ith flat leading-edge 
flap segment. 

Group 12 Format 6F10.6 

XLF(I,1) ^ First corner point coordinates of Ith flat leading-edge 
flap segment. 

YLF(I,1) | See sketch 4. 

Z1 
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XLF(I,2) 


Second corner point coordinates of Ith flat leading-edge 
flap segment. 


YLF(I,2) 

Z2 


Group 13 Format 6F10.6 


XLF(I,3) 


YU(I,3) 


Third corner point coordinates of Ith flat leading-edge 
flap segment. 


Z3 


XLF (1,4) I 


Fourth comer point coordinates of Ith flat leading-edge 


YLF(I,4) [ 


flap segment. 


Z4 





Note; The flat flap must be inside the 
boundary of planform described 
in Group 15. 


Sketch 4 

Repeat Groups 14-18 "NC" times. 

Group 14 Format 6X,I4 

IPN ■ 1 if the shapes of L.E. and T.E. are to be defined numerically. 
= 0 otherwise. 

Group 15 Format 8F10.6 

Corner-point coordinates of a spanwise section. See sketch 5a. 


XXL(l) L. E. X-coordinate of the inboard chord. 


XXT(l) T. E. X-coordinate of the inboard chord. 
YL(1) Y-coordinate of the inboard chord. 
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Note. 


XXL(2) L. E. X-coordinate of the outboard chord. 

XXT(2) T. E. X-coordinate of the outboard chord. 

YL(2) Y-Coordinate of the outboard chord. 

ZS elevation of root chord of the lifting surface relative to fuselage 
centerline. 

DIHED dihedral angle in degrees for the section. For NASYM - 1, 

DIHED for the left wing is negative upwards. 

Groups 14 through 18 are to be repeated NC times. With trailing- 
edge flaps or winglet, another NC cards are needed to describe 
the flap and the associated regions. The order of input is 
illustrated in Sketch 5. Panels with dihedral must be rotated 
to X-Y plane for geometric description. 



input order. 

Sketch 5 a. 



uniform dihedral angle) 



Sketch b 
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Groups 16 - 18 must be omitted if IPN = 0. 

Format 4(6X,I4) 

Number of input points to define the leading edge. Limited to 15. 
Number of input points to define the trailing edge. Limited to 15. 
- 1 if the cubic spline is used to interpolate the L.E. shape. 

= 0 if straight segments are assumed. 

1 if the cubic spline is used to interpolate the T.E. shape. 

= 0 if straight segments are assumed. 

Format 8F10.6 

CA(I), 1=1, NLE x-coordinates of input points to define the LE shape, 
measured relative to the LE of inboard chord. . 

YSL(I) ,1=1, NLE Y-coordinates of input points to define the LE shape, 

measured relative to the inboard chord. (See Note 4) . 

Group 18 Format 8F10.6 

CA(I) , 1=1, NTE X-coordinates of input points to define the TE 

shape, measured relative to the TE of inboard chord. 

4 YST(I) , 1 =1, NTE Y-coordinates of input points to define the TE 

REPEAT NSUR TIMES j 

1 shape, measured relative to the inboard chord. 

Group 19 Format 6F10.6 

AM Freestream Mach number <1.0 

HALFSW Half of reference wing area, same units as (CREF) squared. 

For asymmetrical configurations (i.e., NASYM = 1), use total area. 

CREF Reference chord length 
BREF2 Reference half span 

XREF x-coordinate of moment reference point. 

ALPCON =1. if C L and C m are to be computed. For this case, set 

a a 

T.E. flap angles to zero. Calculation is done at a = 1 radian. 

= 2, if the calculation is for one design lift coefficient based 


Group 16 
NLE 
NTE 
MCVL 

MCVT 

Group 17 
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on the attached-flow theory, * 3, If it is based on the vortex 
flow theory. 

= 0, otherwise. 

Group 20 Format 4F10.6, 1 card 

(Set the following variables to 0, If ALPCON =1.) 

ALNM Number of angles of attack to be processed. If ICAM f 0 and 

IBD = 1, set ALNM ? 2. Limited to 15. 

SNUM Number of spanwise stations involving augmented vortex lift. 

DVRTX =1, if an additional discrete strake vortex is needed to 

calculate the augmented vortex lift effect. 

= 0, otherwise 

CLDS = design lift coefficient if ALPCON = 2 or 3. 

= 0, otherwise. 

If ALPCON « 1. ' skip Group 21. 

Group 21 Format 8F10.6 

ALPA(I) Angles of attack in degrees. ALNM numbers. If there are camber, 
leading-edge flaps, and/or rounded leading edges, start with 
a high value of angles (such as 35-40 deg.). 

Repeat Group VI SNUM times. If SNUM = 0, use one blank card. 

Group 2 2 Format 7F10.6 

SNI Spanwise strip number, cumulative from the center line of the 
first lifting surface, starting from which the leading-edge 
vortex produces the vortex lift augmentation on a downstream 
surface. = 0. if there is no vortex lift augmentation. 

SNE Ending spanwise strip number for vortex lift augmentation. 

= 0. if there is no vortex lift augmentation. 

CTILT Characteristic length for augmented vortex lift effect. It 
may be positive or negative. (See Note 5). 
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SLETH 


L.E. length of the lifting surface which produces the vortex 
lift augmentation. 

XCNTD X-coordinate of the assumed centroid of augmented vortex lift. 

YCNTD Y-coordinate of the centroid of augmented vortex lift. 

XTILT X-distance from the outboard L.E. of the originating surface 
to the T.E. of the receiving surface over which the vortex is 
assumed to pass. (See Note 5). 

SR The lifting surface number receiving the augmented vortex 
lift effect. 


Groups 23 through 28 are repeated NSUR times. Omit Groups 23 and 24 if KT=0. 

Group 23 Format (6X,I4), 1 card 

ICNLE = 0 for constant L.E. radius/local chord ratio. 

= 1 for constant L.E. radius. 

■ 2 for variable L.E. radius/chord ratio. 

Group 2 4 Format 8F10.6 

RC ,= L.E. radius/local chord if ICNLE = 0. 

= L.E. radius if ICNLE = 1 

= L.E. radius/local chord, if ICNLE = 2, at all spanwise control 
stations. 

If ALPCON = 1., Groups 25-28 should be omitted. 

Group 2 5 Format 3FI0.6 

TWST = 1. if there is geometric twist. 

= 0. otherwise. 

RINC Incidence angle, in degrees, of the lifting surface. 

TINP Incidence angle, in degrees, of winglet or vertical fin, 

relative to the root of the lifting surface. 
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Groups 26 through 28 should be omitted if TWST = 0. 

Group 26 Format 2F10.6 

YNUM Number of y-stations to be used to describe twist distribution. 
TCURV = 0. if the twist distribution is assumed to have piecewise 
linear variation. 

=1. if cubic spline interpolation is used. 

Group 27 Format 8F10.6 

YTS(I) Nondimensional (based on semispan) y coordinates at which twist 
angles are defined. YNUM numbers. Limited to 21. 

Group 2 8 Format 8F10.6 

CA(I) Twist angles in degrees at the corresponding y-stations. 
Negative for washout (i.e., leading-edge down). 

Group 2 9 Format 2F10.6 

HEIGHT Height of 3/4 chord point of mean geometric chord from 
ground if NGRD = 1. 

= 0., otherwise. 

ATT = Pitch attitude angle of wings, in degrees. 

= 0. if NGRD = 0. 


Group 3ft 

Group 30 
P 

BK 

RL 

CFF 


must be omitted if LAT # 1. 

Format 4F10.6 

= pb/2V oo , the maximum roll helical angle in radian. 
Sideslip angle in radian. 

“ rb^V^, the yaw rate parameter, in radian. If RL - 0, 
then pb/2V £o = P cos(a) and rb/27^ = p sin (a). 

Skin friction coefficient based on mean geometric chord. 


if IBLC = 1. 
=0. otherwise. 
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* 1. if roll derivatives in combination with sideslip are to 
be computed. = 0. otherwise. 

Format 4(6X,I4) 

= 1 if a fuselage is present 
= 0 otherwise 

number of Fourier-series terms, excluding the zero-order 
term, to satisfy the body surface boundary condition. Usually, 

2 or 3 will be sufficient. 

number of circumferential locations on the body surface at 
which the pressure loading is to be computed. For midwing 
configurations, use even number. Limited to 10. 

number of control stations along the fuselage axis. Limited to 

20 . 

Group 32 Format 5F10.6 

XAS(l) X-coordinate of the fuselage nose. 

XAS(2) X-coordinate of the fuselage tail. 

FUSIND =0. if the fuselage geometry is to be defined analytically 
in Functions FUR(X) and SLOP(X) (i.e. r(x) and r(x) ^Ir- 
respectively) . 

= 1. otherwise. 

FUSNO number of fuselage stations to be input to define the fuselage 
shape if FUSIND - 1. Limited to 21. 

= 0. otherwise. 
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FSHAP ■ 1. if the input fuselage shape is to be interpolated through cubic 
spline interpolation. 

=0. if the input points for the fuselage shape are connected 
with straight segments. 

= arbitrary if FUSIND = 0. 

XI the body station in fraction of body length at which the rate of 
change of cross-sectional area with body length first reaches 
max. negative value. See Datcom. 

Groups 33, 34 must be omitted if FUSIND * 0 
Group 33 8F10.6 

XFF(I) X-coordinates of fuselage to input its radius. FUSNO numbers. 
Group 34 8F10.6 

RFF(I) radii of fuselage at XFF(I) stations. 

* To run additional cases, repeat Groups 1-34 * 


Note: Total number of unknowns to be solved in the program 

NSUR 

l [(IMl(I)) * (NW(1) + NW(2))] + NF*NT 
An example of calculating total number of unknowns is given on page 61. 
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Notes 


1. For ailerons, only those on the right wing are prescribed. 

Anti symmetrical deflection is assumed. Downward deflection 

is positive. For rudders with conventional positive deflections 

(i.e. deflected to the left), the input angles must be negative. 

For flap angles given normal to a hinge line, they must 

be converted to those measured in the streamwise direction 

for input as "DF". The conversion relation can be derived 

by vector analysis and is given as follows: 

sin6 = sinS cos A (9) 

s n v ' 

where 6 g is the flap angle measured in the streamwise direction, 

<5 n is that normal to the hinge line and A is the sweep angle 

of the hinge line. 

2. For a conical camber, a useful mathematical description of 
the shape can be found in Appendix B of reference 3. 

Equal spacing of input points is the best if cubic 
spline is to be used for interpolation. 

3. For a plane flap, a useful exact description of its geometry 
and deflection can be found in Appendix B of reference 3. 

It can be described by the following equation 

ax + by + cz + d = 0 (10) 

where 

a = ( y 4 - Yj) <z 3 - z 2 ) - (y 3 - y 2 ) ( z 4 - z^) 

b = (x 3 - x 2 ) (z^ - z 3 ) - (x^ - Xj) (z 3 - z 2 ) 

c = (x 4 - x 3 ) (y 3 - y 2 ) - (x 3 - x 2 ) (y^ - y^) 
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The streamwise slope is then given by 


dZ a (11) 

9x ” c 

4. For the input of a curved leading edge, the coordinates (x,y) 
of the leading edge of inboard chord are regarded as (0,0). 

5. The choice of CTILT is based on reference 5. On the other 
hand, XTILT is to represent the severity of adverse pressure 
gradient over which the vortex must pass. As a result of 
using XTILT, the vortex may break down earlier. For a simple 
wing planform, both CTILT and XTILT are the same. For strake- 
wing configurations, they are different in general. The choice 
is somewhat empirical in nature. The following examples will 
illustrate their choice based on experience. 

(1) A strake-wing configuration 

This example is taken from reference 10 and is as 
shown in the following sketch. 



For this configuration. 


St rake { 


CTILT = 5.692 

XTILT = 7.05 
9.73 


4.038 


2.9258 


Note that for a strake, XTILT is to be expressed in 
terms of the root chord (4.038) of an equivalent delta 
wing for the strake. Similarly, 

CTILT = 9.9853 - 9.9085 = 0.0768 

Wing' { 

XTILT = CTILT - 0.0768 
(2) A strake-wing body configuration 


This example is taken from reference 11 and is as 


shown in the following sketch. 
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In this case, the aft fuselage will contribute to the 
adverse pressure gradient for the strake vortex. The 
projected fuselage area on the X-Y plane downstream 
of the wing leading edge can be calculated to be 

37, .882 - .1.7.1544 + 37.882 18.603 x 1 5 _ 30-0050 _ 

Divided by the total width of the strake region, this is 
equivalent to a streamwise length of 


30.0050 
1.5 + 1.802 


9.0869 


Therefore, the total distance of adverse pressure region 
is 

9.0869 + (30.335 - 18.603) = 20.8189 
This must be expressed in terms of the root chord of an 
equivalent delta wing of the strake as 


XTILT • 30:4865 - 2.0482 X < 20 - 3432 ' 5.0312)11.21 (for 

strake vortex) 

CTILT is given by 

CTILT = 30.335 - 20.3432 - 9.9918 (for strake vortex) 

For the wing, 

CTILT = 30.153 - 26.8114 « 3.3416 
XTILT = CTILT - 3.3416 
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(3) Second strake-wing body configuration 

This example is taken from reference 12 and is as 
shown in the following sketch. 



The projected fuselage area on the X-Y plane down- 
stream of the wing leading edge can be calculated to be 


1-0.4426 + 1 - 0.4943 
2 


X 0.0305 = 0.016212 


Divided by the total width of the strake region, this is 
equivalent to a streamwise length of 


0.016212 

0.0305 + 0.0789 


0.1482 
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It follows that the total distance of adverse pressure 
region is 

0.8029 - 0.4943 + 0.1482 = 0.4568 


This is expressed in terms of the root chord of an 
equivalent delta wing of the strake as 


XTILT = 


0.4568 

0.78377 - 0.0894 


(0.6280 - 0.1420) - 0.32 

(for strake vortex) 


CTILT is given by 

CTILT = 0.8029 - 0.6280 = 0.1749 (for strake vortex) 


For the wing, 

CTILT = 0.8524 - 0.87297 = -0.02057 
XTILT = CTILT = -0.02057 

OUTPUT VARIABLES 

(1) At the beginning of the output, all input data will be printed. 
HALFSW = half of reference wing area 

CREF = reference chord 

(2) Vortex element endpoint coordinates 

(X1,Y1,Z1) coordinates of the inboard endpoint of a bound 
vortex element 

(X2,Y2,Z2) coordinates of the outboard endpoint of a bound 
vortex element 

(3) Control point coordinates 

One set of (XCP, YCP, ZCP) values defines a control point 
location 

(4) Tip suction 

X/C nondimens ional x coordinate with respect to tip chord 
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CTIP 


2 

= S t (x)/ ( J 5P v 0o c t ), where S t is the tip suction force 
per unit length and c fc is the tip chord 

Y/S y divided by half span 
r X 

GAMMA = - ‘ y (x , y) dx 
X £ y 

GAMAX =■ y 

X 

(5) Pressure distribution in attached flow 

XV nondimensional chordwise location (referred to local chord) 
YV nondimensional spanwise location (referred to semispan 
of the lifting surface) 

CP =AC 

P 

(6) Sectional characteristics 

Y/S nondimensional y-station, referred to semispan of 
the lifting surface 
CL sectional lift coefficient 

CM sectional pitching moment coefficient about the Y axis 
CT sectional leading-edge thrust coefficient 

CDI sectional induced drag coefficient 

CS*C sectional suction coefficient multiplied by local chord 
CAV sectional axial (along X-axis) force coefficient due 
to leading edge vortex 

(7) The next group of output variables is the overall aerodynamic 

characteristics in attached potential flow. If ALPCON = 1.0, 

the lift and pitching moment coefficients will be C L and . 

a a 

(8) If ALPCON =1.0, the factors, K , K p , and K etc. 

p v , v , se 

to be used in the method of suction analogy for a noncambered 
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wing will be printed next. They are used in the following 
formulas: 

2 2 
C. * K sinacos a + (K . + K )sin acosa 

L p v, te v, se 


C^tana 


C ■ K sinacosa — 
m p C 


ref 


2 

+ K . sin a _ 
v,le C 


la 


ref 


i x 

.. ^ 2 se 

K sin a — 

v,se C , 

ref 


(9) If a fuselage is present, the pressure coefficient (C p ) 
at (X/L, THETA) will be printed, where L is the fuselage 
length and THETA (i.e. 6) is measured clockwise (facing 
upstream) from the positive Z axis (i.e. upwards). The 

4 

i*' 

fuselage local loading is defined as ; f 

i 2ir 

C X1 =~— * C (rd0) cos0 (12) 

N r o p 

The overall fuselage aerodynamic coefficients are all 
based on the input reference area and chord. 

(10) Next, the attached flow results are summarized. For the lift 
coefficient, 

CL(LS) the total lift coefficient from all lifting surfaces 
CLF the total lift coefficient from the fuselage 

CL = CL(LS) + CLF 

Similar definitions apply to C_ and C . , ‘ 

(11) Total aerodynamic coefficients to be used in the method of 

suction analogy are summarized as follows, using the lift 

coefficient (C^) as an example. 

CLP the "potential-flow" component of C T 

L 
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w • 



CLVLE the leading— edge vortex lift 
CLVSE the side-edge (i.e. tip) vortex lift 
CLVAUG the augmented vortex lift 
CLDVP the "potential-flow" component of C T due to the 
strake discrete vortex 

CLDW the vortex lift component due to the strake discrete 
vortex 

CLF the fuselage lift 
CL total lift coefficient 

CAXP the axial force coefficient in potential flow, negative 
for pointing forward 

CAXV the axial force coefficient due to leading-edge vortex 

(12) For an asymmetrical configuration or a configuration with 
lateral or directional control input, the resulting rolling 
(CL) and yawing (CN) moments will be printed for both attached 
and vortex flows, with and without tip suction effect. 

Based on experience, those without tip suction effect seem 
to agree better with limited windtunnel data. 

(13) The lateral-directional stability derivatives are defined 
in accordance with standard definitions as follows: 


CYB 


CLB 

CNB 

CYP 


3C 
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3C 


'l 


36 ’ 

3C 
n 

36 ’ 


3C 


3 - ’ 
P 


c y = side force/q S ref 

C £ = rolling moment/q S re ^ b re £ 

C « yawing moment/q S . b 
n n ref ref 

where p = pb/217^ is an input variable and p 
is the roll rate 
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CLP - 


3C e 

a - 

p 


ac 

CNP = D. 

a - 

p 



y , where r * rb/2V is an input variable and r 
cyk = g _ 

r 

is the yaw rate 

ac„ 

CL R = 

r 


CNR = 



(14) The bending moment distribution and the bending moment 
coefficients at the root chord for the attached flow 
will be printed last. 
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PROGRAM JOB CONTROL SET-UP 


The code can be run in overlays or segmentation. The following 
segmentation set-up is for the Cyber 175 computer system at the NASA 
Langley Research Center. 


* 

* SEGMENTATION DIRECTIVES FOR THE UNIVERSITY 

* OF KANSAS PROGRAM "VORSTAB". 

* 


' APRIL* 

1984 


ROOT 

COMMON 

TREE 

VOR ST A8-»(GEMTRY*DW ASH* SOLUTN* LOAD) 

VORSTAB 

VORSTAB 

1 

INCLUDE 

INCLUDE 

VOR STAB* FUR * SLOP* FUSVOL*UNWF* FUSEL A 
ZCDX, TWIST, ZCR,ZC AM, VMSEON,PNLEF 

GENTRY 

1 

INCLUDE 

GENTRY* GEOFUS* PANEL* SPLINE, SHAPLE* SHAPTE 

DUASH 

INCLUDE 

D WASH* IN VN* WING* UNFW*VELFUS*FALONE 

SOLUTN 

SOLUTN 

INCLUDE 

INCLUDE 

SOLUTN* THRUST* GAM AX* AUGVOR*SPNINT*LATERL 
WBETA, VLCTY* VERCOR 

LOAD 

LOAD 

INCLUDE 

INCLUOE 

LOAO*CPFUS*UTFW*FUSLFT*CENTRD*FRATN 
R EOBD* BD PT* BEND IN *BACKWH* DRAG 


END 



Notes. 

(1) With existing dimensions for some arrays, a total number of 
unknowns equal to 195 is allowed. The minimum memory for 
execution with overlays is 80K (decimal) . 

(2) Four (4) working disk files are needed during execution. 
They are designated as (01) , (02) , (03) and (04) . 

(3) An example of calculating total number of unknowns is given 


on page 61. 
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sample INPUT and output 


Three sample cases are included in the following. The configurations 


are shown below. 
1. Sample Case 1. 



2. Sample Case 2 






Sample 


o o 


o © 


CO o 


o 

o 

o 

o 

o 

o o 


o 

o 

o 

® 

o 

o o 


o 

o 

AC 

a 

o 

o o 


o 

o 

rH 

CM 

o 

o o 


o 

o 

* 

f* 

o 

o o 


o 

o 

CO 

o 

o 

o o 


• 

o 

• 

o 

• 

• 

• 

o 

• • 

o o 


o 

o 

o 

o 

o 

o o 


o 

o 

o 

o 

o 

O K 


o 

o 


rH 

o 

o in 


o 

o 

m 

N- 

o 

o o 


o 

o 

rH 

o 

o 

CM CM 


o 

o 

cn 

o 

o 

CO o 


• 

o 

• 

o 

• 

• 

• 

o 

• • 
• 


o 

o 

o 

o 

o o 

o o 


o 

o 

o 

o 

o o 

o o 


n 

* 

* 

in 

o o 

* o 


o 

a 

CM 

CO 

* o 

a * 


CO 

o 

o 

o 

in o 

o m 


o 

rH 

CO 

o 

CM o 

rH CM 


• 

• 

• 

• 

• • 

o 

• • 


o 

o 

o 

o 

o o 

o o 

o 

o 

o 

o 

o 

h o 

O CM 

o 

o 

* 

r- 

* 

o in 

CM o 

o 

o 

CM 


CO 

CO H 

O CO 

o 

o 

m 

CO 

* 

* N 

* o 

O 

o 

00 

CM 

o 

O' m 

n- a 

o 

• 

H 

• 

• 

• 

• • 

• • 

• 

o 


H H MH o 


oo*o 


o 


* 

X 

o 


o 

o o O o o 

o 

o o o 

o o 

O 

o 

o 

O O m 

o 

NO O 

o o 

o 

m 

o 

mo* 

O' 

O' o o 

* m 

o 

O 

CO 

CO HD CO 

00 

CM * O 

CM * 

Q 

CO 

CM 

CM CO CO 

I s - 

r- m o 

O GO 

o 

O 

<£> 

CM * O 

o 

CD CM O 

* CM 

o 

• 

• 

• • • 

• 

• • • 

• • 

• 





O 


o 


o 

O r-i O O O O 

© © © 

© O O 

o o 

o 

© 

o o o * 

© O © 

Of^O 

o 

o 

in 

4 (OH h- 

* © o 

O' m o 

o 

o 

o 

OrlvC CD 

o co o 

* © © 

© 

© 

CO 

rH CO CO f*- 

©CO © 

r- cm © 

o 

o 

O 

CM CO o O 

rH CM © 

rH o © 

o 

• 

• 

• • • • 

• • • 

• • • 

• 

o 



H 

1 © 

o 


rH 

Data 

0) 

u 

(/) 

3 

CO 

ex 

o 

e 


□ o OfOH O 

o 

2 C 


I 

Ui 

X 


o 

OCMOOOOOO 

O O © 

o o © © © o 

o 

O 

O O © HD © © 

O © O 

O O © O N- 

o 

a 

co cm in rH m o 

•4 «0 © 

O © O © CM 

o 

CM 

f- CO CO O' CD 

CM H © 

OOOON- 

o 

o 

a cn N 4 N 

in m o 

O O O © CO 

o 

CO 

rH CO O © O © 

co o © 

© © © © © 

• 

• 


• • • 

• • • • • 

rH 



CM 

r- * © o 


40 


Ui 

o 


HnHO<co 

o 

o 

o 

o 

o 


o 

rH © CM O O O 

o 

O rH O O © 

o 

O 

o o © 

o 

CM 

o in o 

o 

* 

o m o 

o 

rH 

o co o 


o o 
in o 
CO o 
m o 
o 
o o 


oooooooooo 
o oooooooo 
o oooooooo 
o coooooooo 
O ruooooooo 
o omoooooo 


o o © o 


m 


34 


100000 .087270 


♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦•♦♦♦in******************* 
IARGF STRAKF— WING OF FOX# TN 74071 
**************************************** 
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CONTROL POINT COOROINATfS 
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VORTFX— FLOW RESULTS CL « -.00076T CN ■ .C0957O (WITH TIP-VORTEX EFFECT) 

CL • -.000765 CN • .000517 (WITHOUT TIP-VORTFX EFFECT) 
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appendix 


FORTRAN PROGRAM LISTING 


This program was written in Fortran IV language and is 
operational on CDC Cyber 175 computer system at NASA Langley 
Research Center. For other computer systems, the library subroutine 
for matrix inversion may have to be changed. It is located in 
subroutine INVN. 

The following table is an index to the program listing. 
Subroutines are listed in the order of appearance. 

Program or Subroutine Main Purpose 


VORSTAB 

FUR 

SLOP 


executive routine 
define fuselage radii 


define derivative of fuselage radius 
v hv radius 


Page 

90 

92 

93 


FUSVOL 

UNWF 

FUSELA 

ZCDX 

TWIST 

ZCR 

ZCAM 

VMSEQN 


calculate fuselage volume effect 
calculate the effect of fuselage 
on wings 

set up the norma lwash matrix for 
fuselage due to fuselage 
define analytical camber slopes 
calculate local twist angles 
define camber shapes 
cubic spline interpolation of 
camber slopes 

vector method for solving simultaneous 


93 

95 


96 


97 

97 

98 

99 


100 


equations 
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Program or Subroutine 
PNLEF 

GENTRY 

GEOFUS 

PANEL 

SPLINE 

SHAPLE 

SHAPTE 

DWASH 

INVN 

WING 

UNFW 

VELFUS 

FALONE 

SOLUTN 

THRUST 

GAMAX 

AUGVOR 


Main Purpose 

determine the location of a point 
relative to a leading-edge flap 
read and manipulate input data 
define fuselage geometry 
paneling of lifting surfaces 
cubic spline subroutine 
define curved leading edges 
define curved trailing edges 
set up downwash matrix and obtain 
solutions 

invert downwash matrix 
calculate downwash matrix of wings 
due to wings 

calculate normalwash coefficient on 
fuselage due to wings 
manipulate velocity computations 
due to fuselage 

calculate the source distribution 
for the fuselage volume effect 
manipulate aerodynamic calculation 
calculate leading-edge thrust 
calculate streamwise vortex density 
and side-edge suction 
calculate additional loading due to 
a discrete strake vortex 


Page 

101 


102 

118 

119 

121 

122 

122 

123 


133 

134 


138 


142 

146 

146 

152 

161 


168 
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Program or Subroutine 


Main Purpose 


SPNINT 


LATERL 


WBETA 


VLCTY 


VERCOR 


LOAD 


CPFUS 


UTFW 


FUSLFT 

CENTRD 


FRATN 


REDBD 


perform spanwise integration to obtain 169 

the strength of a discrete strake 

vortex 

calculate the effect of lateral- 170 

directional motions 

calculate downwash due to additional 176 


wake vortices in sideslip 

calculate downwash due to a discrete 180 
vortex 

estimate the vertical position of 180 

the discrete strake vortex. Not 
used currently . 

compute and output total aerodynamic 180 

forces and moments 

calculate pressure coefficient on 229 


fuselage 

calculate velocities on fuselage surface 232 
due to wings 

calculate fuselage forces and moments 235 

calculate vortex-breakdown angles 239 

of attack 

determine the fraction of remaining 24 7 

vortex lift 

determine the decrease in alpha of 247 

vortex breakdown in the situation with 
augmented vortex lift 


88 


Program or Subroutine 

Main Purpose 

BDPT 

determine the location of vortex 


breakdown point on the wing 

BENDIN 

calculate bending moment 

BACKWH 

calculate backwash due to image 


vortices in ground effect 

DRAG 

compute far-field induced drag 


2 £ 8 * 

248 


248 

251 


254 
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ooooooo^oo 


PROGRAM VORSTAB (INPUT # OUTPUT# TAPES “INPUT# TA PE 6»QUTPUT# 
♦ TAPE1»TAPE2»TAPE3#TAPE4) 

OPTION FORTRAN 
FORTRAN NLSTIN 

OVIH 


VS 

VS 

VS 

VS 

VS 

VS 


THIS 

c • 


PROGRAM IS 
EOVAPD LAN 


BASED ON THE QUASI VORTEX 
OF UNIVERSITY OF KANSAS 


LATTICE METHOD BY 


REFERENCE JOURNAL OF AIRCRAFT VOL. 
-527# AND AIAA PAPER-82-13B5. 


11# NO. 9# SEPT. 1974# 


VS 

VS 

VS 

PP.51PVS 
VS 
VS 
VS 
VS 
VS 
VS 
VS 

vs 


DIMENSION TITLE (13) 

COMMON/LOOP /K P#NALP»K ALP »TANC2#CLD$»AL» CL II# ALPII# ALPA ( 1 5 ) 

COMMON/SL/ C0SA,SINA#M2,CTX»YBBK,7BK,GV»LATT 
COMM ON /GO/ TINP(6)*BPEAK(6#10)fTFlP<6*3)>RINC(6)#NAL(6) 
l.YBRE AK(fe»7)» DC OS (6# 5)»DSIN(6»M»IWING<6)» IV/GLT (6)» IV(6)»IPAN1 ( fc) 

COMMON/GDSL/ DF(6#5)»YCN(6#4)#NLEF (6)»NVRTX(6)#SNALP(50)»CNALP(50) JS 

vs 
VS 
VS 
VS 

vs 
vs 
vs 
vs 
vs 
vs 
vs 
vs 


1# ALPHC50) # AUX f A# 5 )#CRX(6» 5) #XTILTt M #SLFTH<6) , YCNTD (6) 

1 »NVL1 ( 6) » NVL 2 ( 6 ) # XCNTD ( 6 ) »CTI LT (6 ) #SWPP(6#5)»RC(6»50)»XREF 
1# BUX C 6#5) # S E ( 3#6# 15 ) #NUR < 6) #CVR ( 50 ) #CPAUG ( 200 ) 
l#AtPB0(6»?)»MX(6J»ALBDBR<6»2)#ALB0«L(f»2)»MVRTX(6) 

COMHON/SHPLF/ NLE#YSL(15)#A0L(lA)#PeL(lA),C('l(lA),0Cl{14» 

COMMON /SHPT F / NTE# YST ( 15 ) # AOT ( 14 ) # BOT ( 14 ) »COV ( 14 ) # OCT (14) 

COMMON / A JG/ ALP#Jl#CP(200),GAMP(200)#GAHB(2C0)#fAMR(200> 

1»GAMX(200) »77CP(200)»DZY(200)#BMP(6»50)»BML(f »?0)»CSU(50) 

COMMON /SSS/ NASYM»NSUR#LPANEL»ICAMP»NUMS#IAGVX»PT 
1,NAUG#IBD#PBK#PIS#IDIH#ALPINC»IRL#KT#PI#AL0#AL7 

^COMMON^/EXTPA/ IPN ( 6) #NS (6) # ICNLE ( 6) » ITVST(M # I ST (6 > #NGRO# HEIGHT# 

1 ATT# NC (6) »NVING(6) » IPOS ( 6)# IALP»OUHT( 3»6# 15) »HALF6H(6) 

COMMON/BETA/ GMAX ( 50) #XTG ( 50) #YTG( 50 ) # 7TG ( 50) >P2»NCC-#CTG ( 15 ) # STG ( 3 V.. 

^COMMON /VP ON/ ICOUNT# YBAR (6# 2) » YCMX(6#2 )#MSTP (6)» YPRI6# 2)»YRRBR (6# VS 

12)»YBRBL(6#?)#YD2<6»?)»YDR2(6#2)»Y0L2(6#2)#AP.D<6#2)#ABDR(6#2) VS 

1»A80L(6#2).YREF(6)»YCBR(6»2)»YCBL(6#2) VS 

COMMON /DSL/ CTP (6# 2) #CHOROT(6» 4)» SCH(200) #LAT#CRGF »BPEF2 VS 

COMMON /SCHEME/ C ( 2 ) # X ( 15# 41 ) # Y ( 15# 41) » SLOPE (15 )» XL < 2# 1 5 ) # XTT ( 4 1 ) # VS 
1 X L L ( 4 1 ) VS 

COMMON /GEON/ HAL FS V# XCP < 200 ) » YCP < 200) # ICP < 200) # XLE ( 100 > # YLE ( 100 ) » VS 
1XTE(100)#PSI(30)#CH(100)# XV( 200 )» YV( 200 )»SN(6»15»2)#XN< 200# 2) • YNC 2VS 
200,2 )#2N(200#2)»VIDTH(fe»5)»YC0N( 51 )#SWEEP (100) #HALF B ( 6) #S J ( 6# 31 # 5) VS 


/AFRO/ AM,BfCL<50)#CT<50)#C0<50),CN<50) 

/CONST/ NCSf NCW»H1<6»5)#MJW1<6#2#^ l#HJV2(6t2# 5l#NJVC6f 5) # 


COMMON 
COMMON 

1NFP( 6 ) pNV ( 6 p 2 ) 

COMMON /TWST1/ NYM(6)fYTS(6#21)#AY<6#20)#BY(fc*20)*CCY(6f20)#DY(6# 
120 ) 

COMMON 


VS 

vs 

vs 

vs 

vs 


/LEFIP/ YtEF(6»10#2)#XNF(6*10)*YNF(6fl0)»7NF(6#10)*XLF(6#10VS 


2 

3 

A 

3 

6 

7 

e 

o 

10 

n 

12 

13 

14 

15 

16 
17 
16 

19 

20 
21 
22 
?? 

24 

25 

26 

27 

28 

29 
20 

31 

32 
23 
34 
3> 

36 

37 
3* 

30 

40 

41 

42 
42 

44 

45 

46 

47 
4P 
40 
SO 
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C 

C 

C 


C 

C 


1»4)*YLF(6»10»4),SLP1(6,10) 

COMMON /CANR/ IC AH( 6) * IN ( 6* 10 ) , XT( 6, 10*21 ) , AAM(6*10,20) ,BBM (6, 10, 
120)»CCN(6»10*20)*DDH(6»10»20)»YT(6»101*CURV(6*10)»CHN 0(6*10) 

COMMON /FUSRAD/ IFR, IFN, XFF (21 ) ,RFF ( 21 I , AAF (20), R8F ( 20) *CCF (20) * 
1DDF( 20) 

COMMON /FUS/ XF (20) » XCF (20) »RF ( 20) , $NP( 5* 20) » XLEF* XTFF, WARD (20) , 
lNCUH,NF,NT,CSF(5,10),XAS(6),NKFm,FO»F10,KF,NTL#LVF,WKN,ROX,Yl 
COMMON /INOUT/ INPT,JPT 
OATA YCPN / 51*0# / 

DATA SWEEP /100*0W 
DATA XAS /6*0» / 

DATA NKF /5*0/ 

OATA BMP /300*0« / 

OATA B ML /300*0, / 

OATA XL /30*0« / 

DATA SE / 270*0./ 

OATA OUMT /270*0./ 

OATA HALFB /6*0./ 

OATA YBREAK /A2*0./ 

OATA OSIN / 30*0 • / 

OATA OCOS /30*0 ./ 

OATA ALPH /50*0./ 

OATA CH /100*0./ 

P FORMAT ( 1 X » 40H***** ** *#*******#:»i»# *** + #**$ ** $ * **$$*$*$ j 
413 FORMAT (1H1) 

♦20 FORMAT (13A6) 

♦21 FORMAT (IX* 13A6) 

15 FORMAT (2(6X,I4)) 

16 FORMAT ( 2X* 17HANGLE OF ATTACK •*F8 ( 3*2X*4H0EG#) 

♦** CASE TITLE *** 

INPT-5 

JPT-6 

RAD • 57 • 2957795P 

20 READ (INPT,A20) (TITl E ( I ), 1-1,13) 

IF (EOF (INPT) .NE.O. ) GO TO 30 
WRITE! JPT, 413) 

WRITE ( JPT* 8 ) 

WRITE ( JPT ,421 ) (TITLE ( I ) » 1*1*13) 

WRITE ( JPT, 8 ) 

CALL LL INK ( 6HLINK 11 ) 

CALL GENTRY 
BREAK ( 6* 10 ) "0* 

ALPHA LOOP 
00 10 KW-l.NALP 
KP-KW 

ALFF • ALPA(KW) * RAD 
WRITE ( JPT* 8 ) 


VS 

VS 

VS 

VS 

VS 

VS 

VS 

VS 

VS 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

V* 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 


51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 
67 
6P 

69 

70 

71 ‘ 

72 

73 

74 

75 

76 

77 
7P 
79 
BO' 
81 
02 
P3 
P4 
P5 
06 
0 7 

OP 

RO 

e 0 
<n 
02 

93 

94 *• 
93 
06 
07 
OP 
cq 
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no non 


c 

c 

c 

c 


c 


WRITE ( JPT » 16) ALFF 
WRITE ( JPT#8) 

CALL LLINM6HLINK22) 

CALL OWASH 

CALL LL INK (6HL INK33 ) 

CALL SOLUTN 

CALL LL INK ( 6HL INK 44 ) 

CALL LOAD 

WR ITE ( JPT# 15 ) KP»NALP 
IF (A8S IAL ).LT.0.001) GO TO 12 
10 CONTINUF 
12 CONTINUE 
GO TO 20 
30 STOP 
ENO 

FORTRAN NLSTIN 

cKJ°/FUsSao) IFR#IFN»XFFt21)#RFF(21)#AAF(20)»t?9r{20)#CCF(20)# 

100F(20) 

IF ( IFR »NE« 0) GO TO 10 

♦ DEFINE THE FUSELAGE RADIUS AS A FUNCTION OF X * 

F106B, ASSUMED TO BE SIMILAR TO THAT OF NASA NEMO** 

10-5-58A FROM NOSF TO C.G. 

IF(*.GT.3.4583) GO TO 2 
A1-2.*(X+ 0.3742) /7.6ft 5 
A2-(1.-A1)**2 
A3-(l.-A2)**0.75 
FUR-0. 2892*A3 
GO TO 5 
2 FUP-0.2892 
GO TO 5 
10 CONTINUE 
K • 1 

12 IF (X.GE.XFF(K) .AND. X .LT. XFF ( K+l ) ) GO TO 15 
K-K+l 

IF (K .GF. IFN) GO TO 20 
GO TO 12 
15 SH-X-XFF(K) 

FUR-AAF(K)*SM**34BBF(K)*SM**2*CCF(K)*$M*D0F(K) 

GO TO 5 

20 IF (X .LT. XFF ( 1 ) ) GO TO 25 
K-IFN-1 
GO TO 15 
25 K-l 

GO TO 15 
5 RETURN 
ENO 


VS 100 
VS 101 
VS 102 
VS 103 
VS 104 
VS 105 
VS 106 
VS 107 
VS lOt? 

VS 109 
VS 110 
VS 111 
VS 112 
VS 113 
VS 114 
VS 115 
VS 12 6 j 
VS 117 j 
VS lift; 
VS nog 
VS 120* 
VS 121 1 
VS 1221 
VS 1231 
VS 1245 
VS 1251 
VS 12ft? 
VS 1271 
VS 12F1 
VS 1295 
VS 130/ 
VS 131 » 
VS 13? ' 
VS 13 3p 
VS 1341 
VS 13Fj 
VS 13C- r 
VS 137) 
VS 13? 
VS 139 
VS 14C 
VS 141 
VS 142 
VS 143 
VS 144 
VS 145 
VS 146 
VS 147 
VS ,U§4 
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C FORTRAN NISTIN 

FUNCTION SLOP (X) 

COMMON /FUSRAO/ IFR*IFN#XFF (21 ) #RFF ( 21 ) * AAF ( 20) »BBF (20) #CCF (20 ) * 
100F ( 20 ) 

IF ( IFR .NE. 0) 60 TO 10 

* DEFINE THE DERIVATIVE OF FUSELAGE RADIUS WITH DIMENSIONAL X 
MULTIPLIED BY RADIUS* OR* -RtOR/DX) . ♦ 

F106B 

IF (X.6T .3.4583) 60 TO 2 
Al-2.* (X+0. 3742 )/7. 665 
A2-1.-A1 

A3-S0RT(1.-A2*A2) 

SLOP-O. 032734*A2*A3 
GO TO 5 
2 SLOP-O. 

GO TO 5 
10 CONTINUE 
K-l 

12 IF (X.GE.XFr(K) .AND. X .LT. XFF (K +1 ) ) GO TO 15 
K-K*l 

IF ( K .GE. IFN) GO TO 20 
GO TO 12 
15 SM-X-XFF(K) 

SL0P-3.*AAF (K)*SM**2«2.*BBF(K)*SM+CCF(K J 
SLOP»SLOP*FUR(X) 

GO TO 5 

20 IF CX .LT. XFF ( 1 ) ) GO TO 25 
K-IFN-1 
GO TO 15 
25 K ■ 1 

GO TO 15 
5 RETURN 
END 

C FORTRAN NLSTIN 

SUBROUTINE FUSVOL ( B»X»Y» 7#WN*VK*G90*L#MZ#C$0»S$P) 

C TO CALCULATE FUSFLAGE VOLUME EFFECT BASED ON SOURCE DISTRIBUTION 
COMMON /FUS/ XF(20)*XCF(20)*RF(20)*SNP(5*?0)*XLEF#XTEF*WARD(20)* 
1NCUH,NF,NT,CSF(5»10),XAS(6>»NKF(5)*F0,F10,KF»NTL*LWF*VKN,RDX»X1 
R-$ORT<Y*Y+Z*Z) 

PI-3.14159263 
IF (2) 10*20*30 
10 THETA-PI-ATAN(Y/ABS(7)) 

GO TO 40 
20 THETA-PI/2. 

GO TO 40 

30 THETA -ATAN(Y/ABS( Z) ) 

40 Al-X-XTEF 


VS 

149 

VS 

150 

VS 

151 

vs 

152 

vs 

153 

vs 

154 

vs 

155 

vs 

156 

vs 

157 

vs 

13d 

vs 

139 

vs 

160 

vs 

161 

vs 

162 

vs 

163 

vs 

164 

vs 

165 

vs 

166 

vs 

167 

vs 

168 

vs 

1< o 

vs 

1 7t) 

vs 

*71 

vs 

17? 

vs 

173 

vs 

174 

vs 

175 

vs 

176 

vs 

177 

vs 

178 

vs 

179 

vs 

100 

vs 

181 

vs 

IB? 

vs 

183 

vs 

IP4 

vs 

185 

vs 

186 

vs 

167 

V? 

163 

vs 

189 

vs 

190 

vs 

191 

vs 

192 

vs 

193 

vs 

194 

vs 

195 

vs 

196 

1LS 

197 
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A2-$QRT(A1*A1+B*»4R) 

RFI-A1/A2/R 

XEF-X-XLEF 

B2"S0RT(XEF*XEF4B*R4R) 

RF0-XEF/R/B2 

FT— CA1+A2) /R+(XFF+B2)/P 

FR-(1.+A1/A2)/R*A1/R-(1.*XEF/B2)/P*XEF/R 
CS-COS (THETA ) 

SN-SIN(THETA) 

FCOS-CS*CSD-SN*SSO 

FSIN-SN*C$D*CS*SSD 

UN-0. 

IF (HZ .NE. 0) 60 TO 70 
IK-0 

Nl-NKF(l) 

N2-1 

FNF-NKF(l) 

S -XAS ( 2 )**X AS ( 1 ) 

UN-0 • 

00 50 J-l.NF 

H-J-IK 

XS-X-XF(J) 

XSR-SORT(XS*XS*B*R*P) 

RFX-XS/XSR/R 

VN-VN+(RFl-RFX)*VARD(J>*SNP(N2»Ml*S/FNF 

IF (J .HE. N1 .OR. J .EO. NF ) GO TO 50 

N2-N2+1 

IK-N1 

N1-N1+NKFIN2 ) 

S-XAS (N2+1)-XAS(N2) 

FNF-NK F (N2 ) 

50 CONTINUE 
WN-WN4PI/2. 

WN — (WN*(RFl-RFO)*FO)/ ( ^. *PI > 

WN-UN*FCOS 

FP-F10 

51- SN 

52- CS 

GO TO 76 
70 FP-GBO 

IF (UK .GT. 0.9) GO TO 75 

51— CS 

52- SN 

GO TO 76 

75 Sl-SN 
S2-CS 

76 CONTINUE 

W N«UN-FS1N4S1*FT*FP/R/{4.*PI>-FC0S*S2*FR*FR/{4.*PI> 
AO CONTINUE 


VS 

198 

vs 

199 

vs 

200 

vs 

201 

vs 

202 

vs 

203 

vs 

204 

vs 

205 

vs 

206 

vs 

207 

vs 

208 

vs 

209 

vs 

210 

vs 

211 

vs 

212 

vs 

213 

vs 

214 

vs 

215 

vs 

216 

vs 

217 

vs 

218 

vs 

219 

vs 

220 

vs 

221 

vs 

222 

vs 

223 

vs 

224| 

vs 

225. 

vs 

2261 

vs 

227' 

vs 

22 0 

vs 

229 

vs 

230 

vs 

231 

vs 

232 

vs 

233 

vs 

234 

vs 

235 

v? 

236 

vs 

237 

vs 

238 

vs 

239 

vs 

240 

vs 

241 

vs 

242 

vs 

243 

vs 

244 

vs 

245 

vs 

246 
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VK-(-SN*FSIN*FT/R-C$*FC0S*FR)/<4.*Pn 

VS 

247 

RETURN 

vs 

246 

END 

vs 

249 

FORTRAN NLSTIN 

vs 

250 

SUBROUTINE UNWF { B# X# Y» Z* AV.BW.CSO »SSD ) 

vs 

251 

TO CALCULATE THE EFFECT OF FUSELAGE ON WINGS 

vs 

252 

DIMENSION AWm,BW(l) 

vs 

253 

COMMON /FUS/ XF<20)»XCF(20)*RF<20>#SNP<5»20)#XIEF#XTEF»WARO<20>> 

vs 

254 

1NCUM,NF»NT»CSF(5»10)#XAS(6)#NKF«5)#F0»F10»KF,NTL»LWF»WKN#RDX,X1 

vs 

255 

FI-3.14159265 

vs 

256 

IBW-BW(l) 

vs 

257 

R-SORT (Y*Y+2*Z) 

vs 

258 

IF <Z> 10*20.30 

vs 

259 

10 THETA-PI-ATAN(Y/ABS(n ) 

vs 

260 

GO TO 40 

vs 

261 

20 THETA-PI/2. 

vs 

262 

GO TO 40 

vs 

263 

30 THETA- AT AN(Y/ABS(Z)) 

vs 

264 

40 Al-X-XTEF 

vs 

265 

A2-S0RT(A1*A1+B*R*P) 

vs 

266 

Cl-COS ( THETA ) 

vs 

267 

Sl-S IN ( THET A J 

vs 

268 

FC0S-C1*CS0-$1*SSD 

vs 

2&9 

FSIM-S1*CSD*C1*SSD 

vs 

270 

DO 60 N-l.NT 

vs 

271 

FNF-NKF (1 ) 

vs 

272 

IK-0 

vs 

273 

Nl-NKF (1) 

vs 

274 

N2-1 

vs 

275 

S-XAS { 2 )-XAS ( 1 ) 

vs 

276 

FN-N 

vs 

277 , 

FLT-0 • 

vs 

278 

FLR-O. 

vs 

279 

IF (N .GE. 2) GO TO 70 

vs 

2B0 | 

A3-< (A1+A2)/R1**N 

vs 

281 i 

FLT— A3/FN 

vs 

282 

FLR-A1/R*A3/A2 

vs 

283| 

70 CONTINUE 

vs 

284' 

DO 50 J J-1»NF 

vs 

285 ' 

M-JJ-IK 

vs 

286 i 

K- JJ ♦ ( N— 1 ) *NF 

vs 

287; 

XS-X-XF { J4 ) 

vs 

288 

XSR-SORT(XS*XS+B*R*R) 

vs 

289 

XR-((XS*XSR)/R)**N 

vs 

290 

FTX— XR/FN 

vs 

291 

FRX-XS/P*XR/XSR 

vs 

292 

Pl-S* ( FRX—FLR )*SNP(N2»M)/C8.*FNF) 

vs 

293 

P2-S*( FTX-FLT ) *SNP ( N2»M) / ( 8«*FNF ) 

vs 

294’ 

01-COS CFN*THETA ) 

vs 

?95t 
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02-SIN (FN*THETA ) 

UR-01*P1 

UT --FN*02*P2 

VR-Q2*P1 

VT-FN*01*P2 

VT-VT/R 

UT-UT/R 

IF CJJ .NE. Nl) 60 TO 35 

N2-N2+1 

IK-N1 

N1-N1*NKF<N2) 

S-XAS (N2+1 J-XAS (N2) 

FNF-NKF(N2) 

55 IF (IRM .EO. 1) 60 TO 00 
BW(K ) • VR*FCO$— VT*F$ IN 
AW(K ) -UR*FCOS— UT*FS IN 
60 TO 50 

00 AW (K ) -VR*F$IN4-VT*FC0S 
50 CONTINUE 
60 CONTINUE 
RETURN 
END 

C FORTRAN NLSTIN 

SUBROUTINE FUSEL A ( NF, A W# N, I, S * XTEF » XF# XCF , PF , BB, SNP t NKF » 

C TO SET UP THE DOVNVASH MATRIX FOR FUSELAGE OUE TO FUSELAGE 
DIMENSION AW<1),XF(1),RF<1),XCF(1)#$NP<5#20),SC1),NKF(1) 
PI-3. 1*159265 
IK-0 

Nl-NKF(l) 

N2-1 

HL-($m-S(l) )/2. 

FNT-NKF(l) 

Al-XCF ( I )— XTEF 

A2-S0RT(A1+A1+PB*RF (I ) +RF (I) ) 

DO 5 JJ-l.NF 
M-JJ-IK 

XS-XCF(I)— XF(JJ) 

XSP-SORT(XS*XS+BP*RF(I)*RF(I) ) 



IF 

(N 

.EO. 

0 ) GC 

1 TO 10 


RFL 

•1 

• 




IF 

(N 

.GF. 

2 ) GC 

1 TO 15 


IF 

(I 

.EO. 

NF) 

RFL-O. 


IF 

(I 

.NE. 

NF) 

PFL-(A1+A2)**N*A1/A2 

15 

CONTINUE 



RFR 

•C 

KS*XSRJ**N*XS/XSR 


GO 

TO 

6 



10 

IF 

(I 

• NE. 

NF) 

RFL-A1/A2 


IF 

(I 

• EO. 

NF) 

RFL-O. 


RFR-XS/XSP 


VS 

296 

VS 

297 

vs 

298 

vs 

299 

vs 

300 

vs 

301 

vs 

302 

vs 

303 

vs 

30* 

vs 

305 

vs 

306 

vs 

307 

vs 

30B 

vs 

309 

vs 

310 

vs 

311 

vs 

312 

vs 

313 

vs 

31* 

vs 

315 

vs 

316 

vs 

317 

vs 

31B 

vs 

319 

vs 

320 

vs 

321 

vs 

322 

vs 

323 

vs 

32* 

vs 

325 

vs 

326 

vs 

327 

vs 

320 

vs 

329 

vs 

330 

vs 

331 

vs 

332 

vs 

333 

vs 

33* 

vs 

335 

vs 

336 

vs 

337 

vs 

336 

vs 

339 

vs 

3*0 

vs 

3*1 

vs 

3*2 

vs 

3*3 

vs 

3** 
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AV(JJ)— Hl*(RFL-RFR)*SNP(N2,M)/(*.*FNT) 
IFIJJ.NE.Nl.OR. JJ.EO.NF) GO TO 5 
N2-N2+1 
IK-N1 

Nl-Nl+NKF <N?) 

HL-(S(N2+1)-S(N2) )/2. 

FNT«NKF (N2) 

CONTINUE 

RETURN 

END 

FORTRAN NLSTIN 

SUBROUTINE ZCDX( X»Y» ZCX.OZDY) 

DEFINE THE CAMBER SLOPE* DZDX# AT ANY X»Y 
WHERE X AND Y ARE DIMENSIONAL COORDINATES 

CONICAL CAMBER FOR F106B 
YB«0.*6188*<X-1.7516) 

YE "0*5773 5* (X— 1.7516) 

7CX-0. 

DZDY-O. 

IK "0 

IF(Y.GT.YE) IK-1 
IF(Y.LT.YP) Y-0 • 

IF(Y.LT.YB) RETURN 
IF(Y.GT.YE) Y-YE 
R"0.*20*73*(X-1.7516) 

ZC — R*SORT(R*R-( Y-YB)**2) 

ZCX"0. 

IF(IK.EO.l) GO TO 5 

7CX-(0.*618 8*<Y-YB)-0.*20*73*7C )/< ZC+R) 
DZOY-- ( Y-YB ) / ( ZC ♦R > 

5 CONTINUE 
Y«ZC 

Y IS RETURNED AS THE Z COORDINATE. 

RETURN 

END 

FORTRAN NLSTIN 
SUBROUTINE TWIST 
TO CALCULATE THE 


LOCATION 

REFERRED 


IN 

TO 


CLOSED 

C.G. 


( Y » ATW » I ) 

LOCAL TWIST ANGLE 


COMMON /TWST1 / NYM(6)#YTS (6*21)» AY ( 6* 20 > » BY ( 6* 20 ) »CC Y < 6* 20) * DY ( 6* 
120 ) 

PI-3. 1*159265 
K ■! 

L IF (Y.GE.YTS(I»K) • AND • Y.IT.YTS CI*K+1)) GO TO 2 
K"K*1 

IF (K.GE.NYH(I) ) GO TO 3 
GO TO 1 

^ I|K) 

ATW«AY(I»K)*SN**3+BY(I#K)*SN*SN*CCY(I#K)*SH+DYII#K) 


vs 

3*5 

vs 

3*6 

vs 

3*7 

vs 

3*8 

vs 

3*9 

vs 

350 

vs 

351 

vs 

352 

vs 

353 

vs 

35* 

vs 

355 

vs 

356 

>vs 

357 

vs 

358 

vs 

359 

vs 

360 

vs 

361 

vs 

362 

vs 

363 

vs 

36* 

vs 

365 

vs 

366 

vs 

V.7 

vs 

36P 

vs 

369 

vs 

370 

vs 

371 

vs 

372 

vs 

373 

vs 

37* 

vs 

375 

vs 

376 

vs 

377 | 

vs 

373 j 

vs 

379 | 

vs 

380 

vs 

381 

vs 

362 

vs 

383 

vs 

3P* 

vs 

38 5 

vs 

386 

vs 

387 

vs 

388 

vs 

339 

vs 

390 

vs 

391 

vs 

392 

vs 

393 



ATV«ATW*PI/180. 

60 TO 5 

3 IF <Y.LT.YTS(I»1> ) GO TO 4 
K«NYM< I)-l 
60 TO 2 

4 K*1 
60 TO 2 

5 RETURN 
ENO 

C FORTRAN NLSTIN Pll „. 

SUBROUTINE ZCR<X,Y#DZDX#ICAM»Xl#K#KP,CHORn»070Y#IST»SVP) 

C COMMON 1 /LEFLP/ E YLFF (6» 10* 2 > » XNF t 6. 10 >♦ YNF < 6> 1 0 > » ZNF < 6# 10 > # XLF < 6 #10VS 

1#4)»YLF<6#10»4>*SLP1(6#10) 

DIMENSION 1ST ( 1 ) » IC AM ( 1 ) 

XE-X1 
KK-D7DX 
PR-DZOY 
D20X-0. 

OZOY-O. 

IF (ICAM(K).EO.l) GO TO 2 
IF (ICAh(K).NE.3) GO TO 15 
Xl-O. 

I-l 

3 IF ( Y. GE.YLEF (K * I» 1 1 • AND. Y.LE .YLEF (K» I#2)l GO TO 5 
I-I+l 

IF <I.GT.IST(K>) GO TO 15 
IF(I.EO.ll) GO TO 15 
GO TO 3 

5 YB-YLF (K»I»1)+SLP1(K#I >♦ ( X-XLF (K #1 #1 ) I 
KCON-O 

IF(KK.NF.IOO) GO TO 11 

y ^ ^ y ^ ^ J ^ ^ 

IF (SLP1(M»I).GT.1.E-18) XB-XLF(K#I#l) + (Y-YLF(K#I#m/SLPl(K#n 
DX-RR/(XB-XE) 

IF(ABSd.-DX).LE.O.l) KCON-1 
IFtKCON.FQ.l) GO TO 10 
11 CONTINUE 

IF (Y.L T.YB 1 RETURN 
10 CONTINUE 

TEST1-PNLEF (X»Y»XLF»YLF#I#1#2»K) 

IF (TEST1.LT. 0. ) RETURN 
TFST2-PNLEF ( X , Y, XL F. YLF » I » 4, 3, K 1 
IF (TEST2.GT .0. ) RETURN 
OZDX— XNF(K*I)/7NF(K#I) 

DZDY— YNF(K,I)/ZNF(K»I) 

0«-XNF(K»I)*XLF(K»I#t)-YNF(K»I)*YLF(K»I#l) 

Xl*-(0 + XNF(K,I)*X*YNF (K,I )*Y)/ZNF(K»I) 

IF (KCON.EO.O) GO TO 15 


VS 

394 

vs 

395 

vs 

396 

vs 

397 

vs 

398 

vs 

399 

vs 

400 

vs 

401 

vs 

402 

vs 

403 

vs 

404 

vs 

405 

5VS 

40 j 

vs 

407 

vs 

408 

vs 

409 

vs 

410 

vs 

411 

vs 

41? 

vs 

413 

vs 

414 1 

vs 

415 

vs 

414 

vs 

417 

vs 

418 

vs 

419 

vs 

4?0 

vs 

421 

vs 

422 

vs 

423 

vs 

424 

vs 

425 

vs 

426 

vs 

427 

V? 

423 

vs 

429 

vs 

430 

vs 

4 31 

vs 

432 

vs 

433 

vs 

434 

vs 

434 

vs 

436 

vs 

437 

vs 

436 

vs 

439 

vs 

440 

vs 

441 

vs 

442 
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DZ0X-0«5*D70X 

070Y-0.5*D70Y 

Xl-O. 

2 CUL°ZCAM(X»Y»7R» XI » K »KR> CHORD* IST>DZDY# SWP ) 

D20X-ZR 

15 RETURN 
END 

SUBROUTINE^ ZC AM (X»Y#ZR*Xl*KO»KP#CHQRD»IST»DZDY»SVP) 

COMMON^ /C ANS/^ IC AN ( fe^»IM(6#10)»XT(6#10»21)*AAM(f>»10»20)*B8N(< 

120)»CCN(6#10»20)»DON(6*10>20)»YT(/ > »10)»CURV(6»10)>CHi4D(6»10) 

DIMENSION ZZ(2)#ZO(2)#C(15)#IST(l)»ZY(2) 

K-KO 
L-KO 
I -KP 

3 IF <Y.GE.YT(K»I).AND.Y.LT.YT(K»I*1)) GO TO 2 

I-I + l 

IF ( I « EO« 1ST (K) ) GO TO 6 
GO TO 3 

6 IF (Y.LT.YT(K,1) ) I-l 

IF <Y.GT.YT(K»IST(K))> I-IST(K)-1 
2 IK-1 
XF-O. 

ICV-CURV( K » I ) 

IFtICV.NE.2) GO TO A 
XFl«XT(K*I#2)*CHND<KfI) 

IF UBS<DDH<K»I,1)). IE. O.OOOl) XF1-XT<K,I,1)*CHND(K,I) 
XF2«XT<K,m,2)*CHND(K,I*l) 

YF- C Y**YT( K » I ) ) / ( YT C K# I +1 )— YT(K# I ) ) 

XF-(XF1*(XF2-XF1)*YF) /CHORD 
IF(Xl.GT.XF) GO TO A 
FAC-CHNDCK# 1+1 ) 

DEL? A-ODN C K# I » 1 ) *CHND ( K# I ) ♦ (DDM( K# I + l# 1 J *F AC—PON (K# I#1 ) *CHNl 

1)*YF 

DELTA-DElTA/CHpRD 

IF ( IM (K# I ) • GT, 2 ) ZO ( 1 ) -PPM (K» I » 2) *CHND (K» I ) 

IF ( I M(K# I ) .LE. 2 ) 7C ( 1 ) •(CCM(K#I>1 )*DDN(K»I»1 ) )*CHNC(K» I ) 

IF (IN(K,I*1).GT.2) 2O(2)-O0H(K»I+l»2)*FAC 

IF C IMIK# 1*1 ) .1 E • 2) 70(2)- CCCM(K»I*l#l)*PPNCK»Itl»U )*FAC 
DK-( 70(1 )♦( 70(2 )-70(l) )*YF) /CHORD 
DELTA-DELTA-DK 
60 TO 16 

1 IF l (X.GE.XT(L»I#K).ANP.X.LT.XT(L»I#K*l)) GO TO 5 
K-K*l 


VS 

443 

vs 

444 

vs 

445 

vs 

446 

vs 

447 

vs 

446 

vs 

449 

vs 

450 

vs 

431 

vs 

452 

vs 

453 

vs 

454 

vs 

455 

vs 

456 

vs 

457 

vs 

456 

vs 

459 

vs 

460 

vs 

461 

vs 

462 

vs 

463 

vs 

464 

vs 

465 

vs 

466 

vs 

467 

vs 

46* 

vs 

469 

vs 

470 

vs 

471 

vs 

47? 

vs 

473 

vs 

474 

vs 

475 

vs 

476 

vs 

477 

vs 

478 

l vs 

479 

vs 

480 

vs 

481 

vs 

4P2 

vs 

483 

vs 

484 

vs 

485 

vs 

486 

vs 

487 

vs 

488 

vs 

489 

vs 

490 

vs 

491 
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c 

c 


IF (K.GE.IHCt.I)) 
GO TO 1 
SM«X-XT(L#I»K) 


GO TO 10 


10 


20 


15 


25 


7Z<IK).3.*AAM(L,I,tO*SN*SN*2.*BBM<l,I,K)*SN*CCM(L,I,K1 

ZY(IK)«AAN<L»I»K )*SM**3+BBN<l»I#K)*SM*SM+CCM(t#I»K)*SM+DDMtl#I»K) 


2Y(IK)-2Y(IK)*CHND(L»I) 

GO TO 15 

IF (X.lT.XTtl*!#m 00 TO 20 

K-IH(L»I)-1 

60 TO 5 

K-l 

GO TO 5 

IF(IK.E0.2) GO TO 25 
IFU.GE.IST(l)) GO TO 60 
I-I+l 

IK-IK+1 

GO TO A ... 

YF«( y-YT(L»I- 1) >/<YT(l*I >-YT(L»I-l> > 

GO TO 65 


60 YF»0. 

Z7<2)-0. 

65 CONTINUE 

ZR-ZZ ( 1 ) + <ZZ ( 2)-7Z< 1) )*YF 

DY-YT(L»I)-YT(L»I-1) 

2ZY»C7Y(2)-ZY(in/OY 

DZDY»-SVP*ZR+ZZY 

X1«7Y(1)+(ZY(2)-ZY(1))*YF 


GO TO 30 

16 IF(X.LT.XF) GO TO A5 
PI-3.1A15R265 
Cn)»-OELTA 
JR-15 

00 AO J«2»JR 
XK«( J-l )*PI*XF 

AO CCJ>»>-2.*DELTA*SIN<XK)/XK 


7R-0. 

00 50 J-1»JR 
XK-( J-1)*PI*X 
50 7R«7R+C(J)*COS(XK) 

GO TO 30 
A5 ZR— DELTA/XF 
30 CONTINUE 
RETURN 
ENO 

FORTRAN NLSTIN 

SUBROUTINE VMSEON ( NCI #K , AA» A#C A) _ u . 

TO SOLVE EOUATIONS WITHOUT MATRIX INVERSION FOR A SINGLE ALPHA 
DIMENSION AA(1)#CA(1)»A(1) 

NC-KANC1 


VS 

A92 

vs 

A93 

vs 

ADA 

vs 

A95 

vs 

A96 

vs 

A97 

vs 

A98 

vs 

A99 

vs 

500 

vs 

501 

vs 

502 

vs 

503 

vs 

50A 

vs 

50? 

vs 

506 

vs 

507 

vs 

508 

vs 

509 

vs 

510 

vs 

511 

vs 

512 

vs 

513 

vs 

51 A 

vs 

515 

vs 

516 

vs 

517 

vs 

51 B 

vs 

519 

vs 

520 

vs 

52! 

vs 

522 

vs 

523 

vs 

*! 

vs 

525 

vs 

526 

vs 

527 

vs 

5?P 

vs 

529 

vs 

530 

vs 

531 

vs 

53? 

vs 

533 

vs 

53A 

vs 

535 

vs 

536 

vs 

537 

vs 

538 

vs 

539 

vs 

5A0 
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SUM1-0. 

Kl-K-1 

JJ«1 

00 3 J»1,K1 
SUM1-SUM1+AA(J)*A(JJ) 

3 JJ-JJ+NC 1+1 
SUNl-SUHH-AA(K) 

DO 5 1*1, NCI 
SUH2-0. 

JJ-I+1 

00 4 J«1#K1 

SUH2 ■ SUM2+A A ( J ) * A ( J J ) 

4 JJ-JJ+NC1+1 
KK «K ♦ I 

SUH2«SUN2«-AA(KK) 

5 CA(I )•— SUH2/SUH1 
N-l 

L-0 

KNC-(K-1)*NC1 

DO 8 I *1» NC 

IF (I.GT.KNC) GO TO 7 

IF d.EO.NH) GO TO 9 

6 KK»KK *1 
IL-I+L 

A(I) »CA(KK)*BASE+A( IL ) 

GO TO 8 

7 II»I-KNC 
A(I).CA(II) 

8 CONTINUE 
GO TO 10 

9 II-HH+H-1 
BASE-Adll 
KK»0 
1-1*1 
H-H*l 

GO TO 6 
10 CONTINUE 
RETURN 
END 

C FORTRAN NLSTIN 

FUNCTION PNLEF(X»Y»XLF,YLF#I#J»K,U 
01 HEN SION XIF(6,10»4) , YLF (6»10>4) 

PNLEF-(X-XLF(L#I, J) )*(YLF(L#I,K)-YLF(L,I» J) 

lJn*(Y-YLF(L,I,J) ) 

RETURN 

END 

C LINK LINK11 

c FORTRAN NLSTIN 


VS 

VS 

VS 

VS 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

(XLF(L»I»K)-XIF(L»I» VS 

vs 

vs 

vs 

vs 

vs 


541 

542 

543 

544 

545 

546 

547 

548 

549 

550 

551 

552 

553 

554 

555 

556 

557 
55P 

559 

560 

561 

562 

563 

564 

565 

566 

567 

568 

569 

570 

571 

572 

573 

574 

575 

576 

577 

578 

579 

580 

581 

582 
58? 
584 
5e5 

586 

587 

588 

589 


101 





OF POOR 



QUALITY 


SUBROUTINE GENTRY VS 

TO INPUT AND MANIPULATE INPUT DATA VS 

DIMENSION XXL<2)»YL<2>»XXT(2),CPCVL(16)»CPSVL<31)»AV(50)»CA(50) VS 

COMMON /VBDN/ IC0UNT» YB AP ( 6, 2 ) , YCMX ( 6, 2 ) > MSTP < 6 ) , YBR ( 6 » 2 ) » YBRBR ( 6, VS 
12 ),YBRBL <6,2),YD2 (6,2 ),YDR 2(6,2 ) , YOL 2 ( <S» 2 ) » ABD < 6, 2 ) » ABOR < f , 2 ) VS 

l,ABDL<6,2),YREF(6),YCBR<fc,2),YCBL(6*2) VS 

COMMON /OSL/ CTP(6»2)»CH0RDT(6,4),SCH(200)*LAT,CREF»BPFF? VS 

COMMON /SCHEME/ C ( 2 ) , X ( 1 5 ,41 ) , Y ( 15 , 41 ) , SLOPE ( 1 5 ) , XL ( 2, 1 5 ) * XTT ( 4 1 ) , VS 
lXLL(Al) VS 

COMMON /GEOM/ HALFS V, XCP < 200 ) , YC P < 200 ) , ZC P < 200) ,XLE C 100 ) ,YLE ( 100) ,VS 

1XTE<100),PSI<30)>CH<100),XV<200>,YV<200),SN<6,15»2> »XN< 200,2) ,YN< 2VS 
200»2)»ZN(200»2)*VI0TH<6,5),YC0N(51),SVEEP<100),HALFB<A)»S4(6,31.5)VS 

COMMON /AERO/ A M , B, CL < 50 ) , CT < 50 ) , C D < 50 ) ,CM < 50) VS 

COMMON /CONST/ NC S, NC V, Ml ( 6, 5 ) > MJV1 ( 6, 2# 5) , H JV2 ( 6, 2, 5 ) » N4V ( 6* 5 ) » VS 
1NFP(6 ) »NV<6»2) VS 

COMMON /CAMB/ I C AN < 6 ) , IM < 6, 10 > , XT < 6, 10, 21 ) , A AM < 6, 10, 20 ) , BRM { 6, 1 0, VS 
120)»CCM(6»10»20)»DDN(6»10*20)»YT(6»10),CUPV(6»10)»CHND(6»10) VS 

COMMON /EXTRA/ L PN ( 6 ) »NS ( 6 ) , ICNLE ( 6) , ITWST( 6 ) , I ST ( 6 ) ,NC.RD»HE IGHT, VS 
1ATT»NC<6),NWING<6),IP0$(M,IALP,PUNT(3,6,15),HALFBH(6) VS 

COMMON/ BETA/ GMAX(50),XTG<50)»YTG<50>,ZTG<50>,B2,NCG,CTGI15)»STGI1VS 
15)#DIST,P»BK,RL,CFF VS 

COMMON /LEFLP/ YL EF ( 6 » 1 0 , 2 ) , XNF { 6, 10) »YNF <E>10) ,7NF (fc,10 ), XLF (6,10VS 
1,4),YIFC6,10,4),SLP1(6,10) VS 

COMMON /T VST1 / NYM ( 6 ) » YTS ( 6, 21 ) » AY ( 6, 20 ) , BY ( 6, 20 ) , CCY ( 6, 20 ) , DY ( fc, VS 
120) VS 

COMMON/SHPLE/ NLF,YSL<15),A0L<14),R0L<14),C0l<14),DCL<14) VS 

COMMON/SHPTE / NTE , YST < 15 ) , AOT < 14 ) , OQT <1 4 ) , COT <1 4 ) , DOT C 14 ) VS 

COMMON /AJG / AL P» 41 »C P ( 200 )# GAMP ( 200 )» GAMP ( 200 )# GAI1R ( 200 ) VS 

l,GAMX(2O0),ZZCP<200),0ZY<200) , BMP ( 6 , 50) , DHL < 6, c 0 > »C SU< 50 ) VS 

COMMON /SSS / NASYM,NSUP,LPANEL» ICAMB,NUMS,IAGVX,PT VS 

1. NAUG. IBD,PBK,PIS, 1 0 1 H, AL P INC , IRL , KT, P I , ALO, ALZ VS 

2, NCI » NC2# IPLC VS 

COMMON/LOOP /K V, N ALP ,K ALP , TANC2, CLDS * AL, CL 1 1 , AL P 1 1 , ALPA C 15 ) VS 

COMMON/GD/ TINP(6),PREAK(6,10),TFLP<6,5),RINC(6),NAL(t) VS 

l.YBREAK(6,7),DC0S ( 6, 5 ) , DS IN < 6, 5 ) , I VI NG ( 6 ) , IVG LT < 6 ) , IV < 6 ) , L P AN1 < 6) VS 
1, ICAMT (6) VS 

COMMON /GDSL/ DF(6,5),YCN(6,4),NLEF<fc),NVRTX(M,SNALP(50)»CNALP( 50) VS 
1,ALPHC50),AUX(6,5),CRX(6,5),XTILT<6),SIETH<6),VCNTD<6) VS 

1,NVL1( 6),NVL2<6) ,XCNT0<6) ,CTILT < 6 ) ,S WPP < 6, 5 ) ,PC < 6, 50 ) , XREF VS 

1 » BUX ( 6 » 5 ) * S E ( 3 » 6 » 1 5 ) » NliR ( 6 ) » C VR ( 50 ) , C P AUG < 200 ) VS 

1,ALPR0(6,2),MX(6),ALP0BR ( fc, 2 ) , ALBOPL ( 6, 2 ) , MVRTX ( 6 ) VS 

COMMON /FUSRAD/ I FR , I FN, X F F < 21 ) ,RF F ( 21 ) , AAF < 20 ) , DBF < 20 > ,CCF < 20 ) , VS 

1DDF (20) VS 

COMMON /FUS/ XFC20),XCF(20),RF<20),SNP(5,20),XLEF,XTEF,VAP0C20) , VS 
1NCUM,NF»NT,CSF <5, 10 ) , X A S ( fc ) , NKF < 5 ) , FO, F 10, K F, NTL, L VF, WKN, ROX, XI VS 

COMMON /INOUT/ INPT»JPT VS 

2 FORMAT (8F10.6) VS 

3 FORMAT (8<6X, 14) ) VS 

4 FORMAT (10X.8HHALF SV- ,E1 2. 5, 10X, 5HCRFF «,E12. 51 VS. 
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OF POOR 


•ti. r;-U 


QUALiTY 


6 FORMAT (15H CASE NUMBER - #12) 

7 FORMAT (6F10.5) 

8 FORMAT (1X#A0H**9******P*****************#***»********) 

♦00 FORMAT (11 HO INPUT DATA) 

♦03 FORMAT ( 37H0V0RTEX ELEMENT ENDPOINT COORDINATES-) 

♦ OA FORMAT (27HOCONTROL POINT COORDINATES-) 

♦ 11 F0RHAT(/4X»3HXCP»7X»3HYCP»7X»3H7CP»7X» 3HXCP » 7X » 3HYCP » 7X»3HZCP) 

♦12 FORMAT (/♦X#2HX1#8X#2HX2#8X#2HY1»8X»2HY2»8X»2H71#6X#2HZ2) 

PI-3.1A159265 

PIS-PH-2. 

FIA-PI/2. 

CNET-PI/180. 

FILE (01)#8UX(6,5)IS FOR NORMALWASH INFLUENCE COEFFICIENT MATRIX. 
SUBROUTINE WING. 

FILE (02) IS FOR INVERTED INFLUENCE COEFFICIENT MATRIX. SEE 
SUBROUTINE INVN. 

FILE (03) IS FOR WAKE-INDUCED NORMALWASH IN LATERAL-DIRECTIONAL 
MOTION. SEE SUBROUTINE WBETA • 

♦♦♦ USER'S CASE NUMBER *** 

NGRO-l IF THE WING IS IN GROUND ErFECT# -0 OTHERWISE 
♦♦ NASYM-0 IF THE PLANFPRM IS SYMMETRICAL ABOUT X-AXIS 

■1 OTHERWISE. IN THIS CASE# THE WHOLE PLANFORM M'JST BE 
DEFINED. STARTING FROM THE LEFT TIP. 

NSUR - NUMBER OF LIFTING SURFACES# SUCH AS WING# CANARD# TAILS# 
ETC. LIMITEO TO 5. 

READ ( INPT# 3) NCASE#NGRO»NASYM»NSUR 
WRITE ( JPT#3) NCASE#NGRD#NASYM#NSl'R 
WRITF (4PT#0) 

WRITE ( JPT# 6 ) NCASE 
WRITE (JPT. 8) 

NCS-0 
I PAM EL -1 
YCON ( 50)-NA$YM 
OIST-O . 

HALFSH-O. 

WRITE (JPT#AOO) 

** LAT--1 IF THE POLLING MOMENT COEFFICIENT AT A GIVEN AILERON ANGLE 
IS DESIRED 

■0 FOR NO LATERAL MODE OF MOTION 

■l IF LATERAL-DIRECTIONAL DERIVATIVES ARE TO BE COMPUTEO 
FOR ASYMMETRICAL CONFIGURATIONS# (I.E. NASYM-1), SET L AT -0 
IBLC-1 IF A BOUNCARY LAYER CORRECTION IS TO BE ALPPLIED TO ROLL 
DERIVATIVES. -0# OTHERWISE 

KT-1 IF THE LEADING EDGE IS A ROUNDED ON AND ITS EFFECT ON L.E. 

THRUST WILL BE INCLUDED. -0# OTHERWISE 
JBD. • 1 IF THE VORTEX BREAKDOWN EFFECT IS TO BE INCLUDEO. 


VS 

639 

VS 

6A0 

VS 

6A1 

vs 

6A2 

vs 

6A3 

vs 

6AA 

vs 

6A5 

vs 

6A6 

vs 

6A7 

vs 

648 

vs 

6A9 

vs 

650 

vs 

651 

vs 

652 

vs 

653 

vs 

65A 

vs 

655 

vs 

656 

vs 

657 

vs 

658 

vs 

659 

vs 

660 

vs 

661 

vs 

662 

vs 

663 

vs 

66A 

vs 

665 

vs 

666 

vs 

667 

vs 

66B 

vs 

669 

vs 

670 

vs 

671 

vs 

672 

vs 

673 

vs 

67A 

vs 

675 

vs 

676 

vs 

677 

vs 

678 

vs 

679 

vs 

680 

vs 

601 

vs 

682 

vs 

683 

vs 

68A 

vs 

6e5 

vs 

686 

vs 

687 
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c 

c 


1*15 


• 0* OTHERWISE* 

READ ( INPT«3) LAT#IBLC#KT#IBD 
WRITE ( JPT #3) L AT# IBLC »KT# IBD 
* 2 - 0 . 

DO 1*15 I«l#6 
XTILT ( I )"0* 

NX (I ) *0 

00 1*15 J»l#10 
BREAK ( I# J )«0* 

CONTINUE 

00 1122 K«1»NSUR 
NSS-0 

NC- NUMBER OF SPANWISE SECTIONS ON A 
Ml (K * I ) - NUMBER OF VORTEX STRIPS IN 


SURFACE 
EACH SECTION 


THE UING 
FOP 01 


TIP 


♦♦♦NVING - THE NUMERICAL ORDER OF LAST WING SPANWI SF SECTION *** 
•* IWGLT-1 IF A UINGLET TO BF REPRESENTED BY A TAIL IS PRESENT 
*♦ IWGLT-2 IF THE WINGLET IS AT A LOCATION AWAY FROM 
IPOS • WINGLET POSITION INDICATOR AT THE SURFACE TIP. 

SEE INSTRUCTIONS 

READ (INPT»3)K2»!M1(K»I)»I*1#K2)#NWING(K)»IVGIT(K)» 

nposm 

WRITE ( JPT# 3 ) K2» (Ml (K» I ) » I-1#K2)#NWING(K)»IWGLT(K)» 

1IP0S ( K ) 

IF(NWING(K).EO.O) NWING(K)-1 
IWING(K)-0 

IF(IWGLT(K) .EO.O) GO TO 11*0 
NKG«NVING(K ) 

00 11*1 I “1 » NKG 
IWING (K)-IWING(K J+MltK # I ) 

11*1 CONTINUE 
11*0 CONTINUE 


VS 

688 

vs 

689 

vs 

690 

vs 

691 

vs 

692 

vs 

693 

vs 

69* 

vs 

695 

vs 

696 

vs 

697 

vs 

698 

vs 

699 

vs 

700 

vs 

701 

vs 

702 

vs 

703 

vs 

70* 

vs 

705 

vs 

706 

vs 

707 

*vs 

TOP 

#vs 

709 

vs 

710 

vs 

711 

vs 

712 

vs 

713 

vs 

71* 

vs 

715 

vs 

716 

vs 

717 

vs 

718 

vs 

719 

vs 

720 

vs 

721 

vs 

722 

vs 

723 

vs 

72* 

vs 

725 


K? - NC (K 1 
DO 1123 K P-1 » K2 
1123 M1(K#KP)*M1 (K»KP)+1 

***NFP*NUMBER of FLAP SPANS. 

NJW-NUMERIC AL OROERS OF FLAP SPANS AMONG THE 
* NOTE. THE NUM8FR OF FLAP SPANS IS LIMITED TO 
FOR A CLEAN OR FULL- SPAN FLAP CONFIGURATION# 

* NVRTX-VORTEX STRIP NUMBER AT AND OUTBOARD OF WHICH THE L«E. VORTEXVS 
LIFT EFFECT IS NOT INCLUDED. IF IT IS ZERO. TOTAL VORTEX LIFT 

MVRTX- VORTEX^ STR I P NUMBER INBOARD OF WHICH THF LE VORTEX LIFT 


SPANWISE SECTIONS* 
FIVE * 

PUT NFP-NJW<1>-1 


VS 

VS 

VS 

VS 

VS 

VS 

vs 


vs 

vs 

vs 


726 

727 

728 

729 

730 

731 

732 

733 
73* 

735 

736 


104 


ooor>oor>ooor>r> nonnononnonono 


ORIGINAL 

OF POOR 


QUALiYY 


C 

c 

C 

c 

c 

C 

c 


EFFECT IS NOT INCLUDED 
NLEF-1 IF THE FLAPS ARE L»E. FLAPS 

IV-1 IF R THE E CORRFSPONOING LIFTING SURFACE HAS DIHEDRAL OF 90-DEG 
AND IS NOT SYMMETRICAL ABOUT X-AXIS 
NAL-NUMERICAL ORDER OF AILERON SPAN (-0 IF LAT-O) 


READ ( INPT. 3 ) 
l)#IV(K),NALtK) 
NFP(K) - K2 
WRITF (JPT»3) 

1 )# IV ( K ) »NAL CK ) 


K2# ( NjW(K» I ) » I' 


C 

C 


♦* FLAP ANGLES IN OEGREES 
K2 - NFP(K) 

READ ( INPT» 2 ) < DF (K # I ) * I»1#K2 ) 
WRITE ( JPT* 2 ) (DFCK,I)#I-1*K2) 


113 


DO 113 I-1.K2 

OF (K # I )-DF(K,n*PI/l«0. 

TFLP(K#I)—DF(K»I) 


*** Nwm 
ICAM-0 

-1 

■2 


•NUMBER OF CHORDWISE VORTEX ELEMENTS IN CHORDWISE SECTIONS. 
FOR 7ER0 CAMBFP 

FOR CAMBER ORDINATES TO BE REAO IN 

IF CAMBER CRDINATFS ARE DEFINED ANALYTICALLY IN SUBROUTINE 


2CDX FOR WING 

-3 IF THERE ARE PLANE L.E. FLAPS ATTACHED TO A PLANE WING. IN 
THIS CASE* 1ST IS THE NUMBER OF L.E. FLAPS. 

IST-NUMBER OF SPANWISE STATIONS AT WHICH CAMBER ORDINATES ARE Rf 
IN. LIMITED TO 10 

ICAMT-NUMERICAL ORDER OF THE Y-STATION BEYOND WHICH THE INPUT C/ 
BERS ARE FOP THE WINGLET OR VERTICAL FIN. 

. 0 IF THERE IS NO CAMBER FOR THE WINCIET OR FIN. 

REAO (INPT.3) (NW{K,I)#I«1»2)»ICAM(K|,IST(K),ICANT{K> 

WRITE! JPT# 3) (NUCK#I)#I-1»2)#ICAM<K)#IST(K>,ICAMT(K) 

IF ICAM-1# READ IN THE X-COCRDIN ATES AND THE CAMBER ORDINATES 
YT-Y-STATION AT WHICH CAMBER ORDINATES ARE TO BE READ IN 
(DIMENSIONAL) 

XNUM»NUMBER OF CAMBER ORDINATES TO BE READ IN. LIMITED TO 21 
CURV-O. IF CAMBER IS FORMED BY CONNECTING STRAIGHT SEGMENTS 
WITH FIRST SEGMENT BEING L.E. FLAP 
•1. IF CUBIC SPLINE INTERPOLATION IS USED 

.2. IF CUBIC SPLINE INTERPOLATION IS USED# WITH FIRST SEGME 
BEING L.E. FLAP 

CHNO-CHORO LENGTH AT YT-STATION 
XT-NONDIMENSIONAL X-COORD JNATES TO DEFINE CAM8FR 


VS 

737 

VS 

738 

vs 

739 

vs 

740 

vs 

741 

vs 

742 

vs 

743 

KVS 

744 

vs 

745 

vs 

746 

KVS 

747 

vs 

748 

vs 

749 

vs 

750 

vs 

751 

vs 

752 

vs 

753 

vs 

754 

vs 

755 

vs 

756 

vs 

757 

vs 

750 

vs 

759 

vs 

760 

vs 

761 

: vs 

762 

vs 

763 

( vs 

764 

vs 

765 

IDVS 

76’; 

VS 

767 

"-VS 

763 

VS 

769 

VS 

77C 

vs 

771 

vs 

772 

vs 

773 

vs 

774 

vs 

775 

vs 

776 

vs 

777 

vs 

770 

vs 

779 

vs 

700 

vs 

781 

T VS 

702 

vs 

703 

vs 

704 

vs 

705 


105 
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C CA-NONOIMENSIONAL CAMBER ORDINATES. IF CHND-O.. USE ACTUAL 

C SIONAL1 CAMBER ORDINATE. 

C 

IF (ICAM(K) .NE.l ) SO TO 191 
K2 ■ IST(K) 

DO 192 I«1#K2 
JJ-I 

REAO ( INPT. 2 ) YT ( K # I ) » XNL'M. CUP V (K # I ) #CHND (K » I ) 

WRITE(JPT»2) YT(K, I ). XNUM»CURV(K, I ),CHNO(K#I> 

IM(K#I)-XNUM 

IR-IM(K.I) 

ICV-CURV(K.I) 

REAO (INPT. 2) (XT(K,I,J),J-1,IR) 

WR ITE ( J PT» 2 ) (XT(K#I»J)»J-1»IP> 

REAO (INPT. 2) (CA(J )» J«1 » IP ) 

WRITE (JPT.2) (C A ( J ) . J*l# IR ) 

DO 194 KO-l.IR 
104 AW(KO)»XT(K.I#KO) 

IF(ICV.EO.O) GO TO 197 

CALL SPLINE ( I R . A W. C A. GAMP# GAMX . GA MB . GAMP ) 

K3 ■ IR - 1 

00 193 K0-1.K3 

AAM ( K . I.KO)-GAHP(KO) 

88M(K» I.KO)-GAMX(KO) 

CCM(K»I»KO)-GAMB(KO) 

193 ODM(K, I#KO)»GAMR (KO) 

GO TO 192 
197 00 198 J-2.IR 
AAM(K,I,J-1)«0. 


(DIMEN-VS 

VS 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

VS 

VS 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 


BBM(K, I,J-l)-0. VS 

IF(ABS(AV(J)-AW(J-l)).LE.l.E-20) GO TO 190 VS 

CCM(K»I»J-1)-(CA( J)-CA(J-l) J / ( AW ( J )— AU ( J-l ) J VS 

190 OOM(K» I. J-l )«CA ( J-l ) VS 

198 CONTINUE VS 

192 CONTINUF VS 

191 CONTINUE VS 

IF (IC AM (K ) . NE • 3 ) GO TO 2C05 VS 

YLEF(I.l) ■ EXTREME INBOARD Y-COOPDIMATE OF A L.F. FLAP. VS 

YLEF < 1.2) ■ EXTREME OUTBOARD Y-COPRD INATE OF A L.F. FLAP. VS 

X1.Y1.Z1. ETC. ARE CORNER POINT COOPOINATFS OF A i.F. FLAP. INPUT VS 
IN CLOCKWISE ORDER. FIRST FROM THE MOST INBOARD POINT. VS 

K2 • IST(K) VS 

DO 2006 I-1.K2 VS 

REAO (INPT. 2) (YLEF(K»I,K0).K0.1,2) VS 

WR ITE ( J PT, 2 ) (YLEF(K#I»KQ)»KQ«1»2) VS 

READ (INPT.2) XLF(K.I#1)»YLF(K.I»1)#71#XLF(K»I»2) .YLf (K»I»2)»Z2 VS 

WRITE < JPT.2) XLF(K#I.1)»YLF(K»I»1)»Z1#XLF(K.I#2).YLF(K,I.2)»Z2 VS 

READ (INPT.2) XLF(K#I»3).YLF(K»I»3)»Z3#XLF(K»I»4).YLF(K#I#4)#Z4 VS 

WRITE (JPT.2) XLF(K#I»3)#YLF(K»I>3).Z3#XLF(K.I#4)»YLF(K>I.4)»Z4 VS 


786 

787 

788 

789 

790 

791 
702 

793 

794 

705 

796 

797 

798 
790 
800 
801 
802 

803 

804 

805 

806 
80? 
808 

809 

810 
811 
812 

813 

814 
81"> 
816 
PIT 
Pi r 
n i o 
p ; o 
0 21 
P?? 
0 / 3 

B?.o 

8 27 
828 
020 
P30 
P31 

832 

833 

834 
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IFUB$<XIF(K»I,4)-XLF<K»I,1)).GT.1.F-18) SLP1 (K»I >»{YLF<K*I#4)-YIFVS 
lCK*I»in/<XLF(K#I,4)-XLF(K#I,l) ) VS 

IF(ABS<XIF<K»I,4)-XLF(K#I,1)),LE.1.E-18) SLP1(K,I)»1.E18 VS 

XHFCK,n-(YLFlK,I,A)-YLF(K,I»l) ) ♦ < Z3-72 ) -( YLF ( K , I , 3 )-YLF <K, I, 2 ))* VS 
1 (Z4-Z1 ) VS 

YNF(K,I)-(XLF(K#I»3)-XLF(K#I,2n*(Z4-Zl)-(XLF(K,I,4)-XLF(K,I,l) )♦ VS 
1 ( Z3-Z2 ) VS 

ZNF(K,I)-(XLF(K,I,41-XLF(K,I,1) )*( YLF < K » I , 3 ) -YLF (K , I » 2 ))- t XLF { K # I # VS 


13)-XLF(K»I»?))*(YLF(K#I#41— YLF(K#I»1) ) 

IF(ABS(XNF(K»I) ) . LT . 1 . E-4. AND. ABS ( Z3 ) . GT . 1 . F-4 ) GO TO 171 
IF(ABS(ZNF(K,n J.GT.l.E-3) GOTO 2006 
171 CONTINUE 

XNF(K,I)-(YLF(K,I,4)-YLF(K,I,l))*(Z2-71)-(YLF(K,I,2)-YLF(K,I,in 

1*C 74— Z 1 ) 


VS 

VS 

VS 

VS 

VS 

VS 


YNF(K,I).<XIF<K» X, 2 J-XLFIK* 1,1) >*< 74-71 J-CXLF (K. 1,4 >-XLF(K, 1,1 J )* VS 


KZ2-Z1) 


VS 


ZNF(K# I)» { XLF (K> 1*41— XLF (K# 1*1) ) * ( YLF <K » 1 , 2 )-YL F (K»T»l))-<XlF(KtI»VS 


12)-XLF(K»I»1) )*(YLF(K#I#4 )— YLF ( K » I # 1 ) ) 

2006 CONTINUE 
2005 CONTINUE 

IF(ICAM(K).E0.0) 1ST C K J • 1 
NKW*NW(K#1 ) 

L"1 

CHOROT (K* 2)«0. 

CHORDT (K# 3) »0. 

CHOROT ( K* 4 J "0 • 

105 CONTINUE 
LL-1 
FN-NKW 

00 100 I • 1 » NK V 
FI-I 

CPCVL (I)«0.5*(1.-C0S( C2.*FI-1.I*PI/C2.*FN) } ) 

SN(K*I»L)«2.*S0RT (CPCWLI I )•( l.-CRC VL ( I ) ) ) 

100 CPCWL(I)«CPCWL(I>*100. 

K2 • NC(K) 

DO 10 KK«1,K2 

IPN-1 IF THE SHAPES OF SECTION LEAPING AND TPAILING EDGES ARE 
DEFINED NUMERICALLY. -0 OTHERWISE 

READ ( INPT » 3 ) IPN 
WR ITE ( JPT * 3 ) IPN 
*REAK(K,KK+5)»IPN 

*** COORDINATES OF BREAK CHOPDS BOUNDING SPANVISE SECTIONS# FRON 
ROOT TO TIP ON THE RIGHT WING *** 

* DIHEO-THE DIHEDRAL ANGLE IN DEGREES FOR THE SECTION * 


VS 

VS 

vs 
vs 
vs 
vs 
vs 
V vs 
vs 
vs 
vs 
vs 
vs 
vs 
vs 
vs 
vs 
vs 
vs 
vs 
vs 
vs 
vs 
vs 
vs 
vs 
vs 
vs 
vs 
vs 


FOR NASYM-1# DIHED FOR LEFT WING IS HEASUPED FROM NFGATIVE Y-AXIS V< 
ANO IS NEGATIVE UPWARDS VS 


835 

836 

837 

838 

839 

840 

841 

842 

843 

844 

845 

846 

847 

848 

849 
8*0 

851 

852 
8*3 

854 

855 

856 

857 
85P 

859 

860 
861 
86 ? 

863 

864 

865 

866 
*67 
ets 

R69 

870 

871 
87Z 

873 

874 
873 

876 

877 

878 

879 

880 
881 
882 
883 
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RE AO C INPT#2) C (XXL C I) ,XXT( I ) ,YL 1 1) # 1-1 » 2) » ” ,0IHE0 ) 

VR ITE ( JPT»2 ) C(XXUn,XXTm,YL(I)»I-lt2)»ZS,0IHE0) 

TANL-O. 

TANT-O. 

tm.imiii-muiimiHi-Mi" 

IF(KK.EO.l) TANT-(XXT(2>-XXTCin/(YL(2)-YL<in 
15 CONTINUE 

IF(L.NE.l) GO TO 101 
CRXtK,KK).XXl < ? 1-XXL < 1 > 

AUX(K#KK)*XXL (2) 

BUX(K»KK) -XXT (2 ) 

101 CONTINUE 

♦ **IE I PN ■ 0# SKIP THE FOLLOWING INPUT DATA 

IF (I PN • EO «0 ) GO TO 2320 

♦ ♦♦NLE-NUHBEP OF INPUT POINTS TO DEFINE THE LE. UNITED TO 15 

StCnUNBER OF INPUT POINTS TO DEFINE THE TE. LIMITED TO 15 
SJvL-i IF THE CUBIC SPLINE IS USED TO INTERPOLATE THE IE SHAPE 
•0 IF STRAIGHT SEGMENTS APE ASSUMED FOR THE LE SHAPE 
NCVT-1 IF THE CUBIC SPLINE IS USFD TO INTERPOLATE THE TE SHAP. 
-0 IF STRAIGHT SEGMENTS ARE ASSUMED 

READ ( INPT » 3 ) NL E» NTE t MC VL * MC VT 
WR ITE ( J PT# 3 ) NLE#NTE»NCVL»MCVT 


*** 


CA» YSL-X-ANO Y-COOPDINATES OF INPUT POINTS TO DEFINE THE LE 
SHAPE RELATIVE TO THE LE OF INBOARD CHORD 
READ ( INPT* 2 ) (C A ( I ) » I -1 » Nl E ) 

WR ITE ( J PT# 2 ) CCA(I).I-1»NLE) 

READ (INPT#?) (YSL(I) »I*1»NLE) 

WR ITE ( JPT» 2 ) ( YSL 1 1 ) # 1*1 » NLE ) 

IF(MCVL.EO.O) GO TO 2321 

CALL SPLINE <NLE»YSL#CA»AOL#BOl#COL#DOL) 

GO TO 2322 

2321 DO 2323 I*2»NLE 
AOL(I-1)*0. 

COLtI-l)*(CA(n-CA(I-l))/CYSL(I)-YSL(I-l)) 

2323 D0L(I-1)“CA(I-1) 

CA»YST*X- AND Y-COORDINATES OF INPUT 
RELATIVE TO THE TE OF INBOARD CHORD 

2322 CONTINUE 

READ ( INPT t 2 ) (C A (I) > I -1 * NTE > 

WR ITE ( JPT » 2 ) (CA(I)#I*1»NTE) 

READ ( INPT# 2 ) ( YST ( I ) » 1*1 #NTE ) 

WRITE ( JPT»2) ( YST ( I ) » I *1 » NTE ) 

IF(MCVT«EO.O) GO TO 2324 


POINTS TO DEFINE THE TE 


VS 
VS 
VS 

vs 
vs 
vs 
vs 
vs 
vs 
vs 
vs 
vs 
vs 
vs 
vs 
vs 
vs 
vs 
vs 
vs 
vs 
vs 
vs 
vs 
vs 
vs 
vs 
vs 
vs 
vs 
vs 
vs 
vs 
vs 
vs 
vs 
vs 
vs 
vs 
vs 
vs 

SHAPFVS 

vs 

vs 

vs 

vs 

vs 

vs 

vs 


884 

685 

eeo 

887 

888 

889 

890 

891 

892 

893 

894 

895 

896 

897 

898 

899 

900 

901 

902 

903 

904 

905 

906 

907 

908 
90S 

910 

911 

912 

913 

914 

915 

916 

917 

918 

919 
Q2C 

921 

922 

923 

924 

925 

926 

927 

928 

929 

930 

931 

932 
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CALL SPLINE (NTE#Y$T»CA#AOT#BOT#COT#DOT) 

VS 

933 


60 TO 2320 

VS 

034 

2324 

00 2325 1-2, NTF 

vs 

035 


A0T( 1-1 ) «0« 

vs 

036 


B0T(I-l)-0. 

vs 

037 


C0T(I-1)*(CA(I)— CA( 1-1 ))/(YST(I)-YST(I-l)) 

vs 

ose 

2325 

DOT( 1-1 )«CA ( 1-1 ) 

vs 

039 

2320 

CONTINUE 

vs 

040 


RT2-(XXT<2)-XXT(1) > /< YL ( 2 )-YL ( 1 )) 

vs 

941 


IF(NASYN.E0.1.AND.Yl(l).lT.0.) C-0 TO 2311 

vs 

942 


SKP«ATAN( RT2 ) 

vs 

943 


TPR-(XXT(2)-XXL (?) ) /(XXTCl)-XXL(l) ) 

vs 

944 


CB6“2./3.*(XXT(1) — XXL(1))*(1.+TPP«-TPR*TPR)/(1.*TPR) 

vs 

045 


GO TO 2312 

vs 

946 

2311 

IF(ABS(RT2).GT.l.E-7> RT2— RT2 

vs 

047 


SKP-ATAN(RT?) 

vs 

949 


TPR-(XXT(l)-XXLCl)»/IXXT(2)-XXL(2) ) 

vs 

949 


CBB«2./3.*( XXT(2)-XXL (2) ) + < 1 .♦TPR*TPR*TPR ) / ( 1 . ♦TPR ) 

vs 

950 

2312 

CONTINUE 

vs 

951 


C0X»CB8*C0S(SKP) 

vs 

952 | 


H-YL(2)-YL(^,J 

vs 

953 


COY»H*(l.*2.*TPR)/(l«*TPR)/3« 

vs 

954 


0UHT(1»K,KK)«SKP 

vs 

955 


DUNT (2»K,KK )-1.0662*COS(SKP)*{H*COX/(COY*COYI)P*0.2 

vs 

956 


YBREAK CK.KK )»YL (2) 

vs 

957 


FM-M1CK»KK) 

vs 

958 


NSM-H1(K,KK) 

vs 

959 


IF(K.EO.l) XXLE-XXim 

vs 

960 


IFtK.EO.n XXTE-XXTU) 

vs 

961 


IF ( ABS ( YL (1) ). L T. 0.001. AND. K.E 0.1) 0 IST-PIST + XXT ( 1 ) -XXL ( 1 ) 

vs 

062 


DO 120 J-l.NSW 

vs 

<^3 


FJ*J 

vs 



CPSWL <J)-0.5M1 ,-COS( (2.*FJ-1.)*PI/(2.*FH) ) >*100. 

vs 

0»>5 


YCON( J)-0.5*(1.-C0S(FJ*PI/FH)) 

v: 

°66 


SJ(K,J,KK)«$IN(FJ*PI/FM) 

vs 

9o7 

120 

CONTINUE 

vs 

9vS6 


IF (0THE0.GT.5. ) IDIH-1 

vs 

9 <• 3 


OCOSCK.KK )-CnS(DIHEP«PI/lPO.) 

vs 

ovo 


OSINtK.KK )«SIN(DIHEP*PI/180.) 

vs 

971 


IF (KK • EO.NC (K ) ) GO TO 130 

vs 

9^2 


IF(IHING(K).NE.O.ANO.KK.EO.NWING(K)) GO TO 130 

vs 

973 


CPSWL (NSW )«100. 

vs 

974 


IF (NASYN, EO.l .AND. KK.EO.l) GO TO 135 

vs 

975 


CPSWL ( 1 ) "0. 

vs 

976 


GO TO 135 

vs 

977 

130 

CPSWL ( 1 ) *0. 

vs 

973 


IF(IWGLT(K) .EO.l.ANO.KK.EO.NWINGtK )) CPSWL (NSW) • 100. 

vs 

979 

135 

IF(KK.EO,NJW(K#LL) ) N JW1 ( K»LiLL ) -I PANEL 

vs 

080 


NCW-NKW 

vs 

981 


t 
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CALL PANEL{XXL»YL*XXT*CPCVL»CPSVL*NSW»IPANEL*LPAN€l#ZS#L#KA#IPN> 

IPANEL-LPANEL+1 

NCS-NCS+NSW-l 

?MUEla!I^.NW(K,2).PQ.O) B2-B2*FLOAT (NSW 1-1 . 

IFU.E0.2) B2-B?*FL0AT(NSW)-1. 

IFtKK . EO.NC ( K ) J B2-e2*l. 

WIDTH(K#KK)«Yt(21-YL(l) 

BREAK(K#KK)-YL(1) . B1UC . 

IF(KK.EO.NJW(K,LU) M JV2 ( K ,L » LL ) -L P ANFL 
IF(NASYM.E0.1. AND.KK.EO.11 CO TO 2105 
IF (IWING(K 1 .NE .0 • AND .KK . E0.NVING(K 1 ) GO TP 11 

IFWK.NE.NC <K)) GO TO 112 

IF(KK.EO.NC(K).AND.IVING(KJ.NE.O) GO TO 9 

CHOROT (K#L ) “XXT( 2 1-XXl (21 


112 

10 


HALFB ( K 1 *YL ( 2 ) 

YCM( K »L )*XXL ( 2 1 
GO TO 112 

2105 CHOROT (K*L+2)"XXT(1)“XXL(1) 

YCH(K»L+2)*XXL (1) 

GO TO 112 

9 CHOROT (K»L+2 )»XXT( 2 1-XXL ( 2) 

HALFBH (K ) "YL ( 2 1 
YCH(K#L+2)*XXL(2) 

IF (KK ,EQ.NJW(K» LL 1 1 lt»LL+l 
CONTINUE 

IF (L .EO. 2) GO TO 107 
LPAN1 (K1-LPANEL 
IF ( NW ( K# 2 1 • EQ .0 1 GO TO 106 
L«2 

NKW»NW(K#2) 

GO TO 105 
K2 ■ NFP(K) 

00 111 I«1»K2 
HJWl(K,2»I)-0 
HJW2 ( K » 2» I ) *0 
NSS-NSS*2 
CONTINUE 
LPN(K)-LPANFL 
IF(K.EO.l) NS(K)»NSS/2 
IF(K.GT.l) NSCK )»NS(K-l)*NSS/2 
WRITE ( JPT.3 1 N$(K)»LPN(K)»IPAN1(K)#LPANEI 
IF(NVRTX(K) .EO.O) NVRTX ( K 1 -NS (K 1 +1 
IFIIWGLT(K) .NE.O) IV(K)»0 
CONTINUE 

TANC2»0.5*(TANL+TANT) 


106 

111 

107 


1122 


C 

C *** 


AH • HACH NUMBER 


VS 

982 

vs 

983 

vs 

984 

vs 

985 

vs 

986 

vs 

987 

vs 

988 

vs 

989 

vs 

990 

vs 

091 

vs 

992 

vs 

993 

vs 

994 

vs 

995 

vs 

996 

vs 

997 

vs 

9Q8 

vs 

999 

vs 

1000 

vs 

1001 

vs 

1002 

vs 

1003 

vs 

100 4 

vs 

3 005 

vs 

1006 

vs 

1007 

vs 

IOC 8 

vs 

1009 

vs 

1010! 

vs 

ion j 

vs 

1012| 

vs 

1013 

vs 

1014 

vs 

1015 

vs 

1016 

vs 

1017 

vs 

101 8 

vs 

1019 

vs 

1020 

vs 

1021 

vs 

1C 2? 

vs 

1023 

vs 

1024 

vs 

1025 

vs 

1026 

vs 

1027 

vs 

1028 

vs 

1029 

vs 

1030 


110 


nonnnonoono 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


HAlfSV - REFERENCE HALF WINS AREA (IF PLANFOPM 1$ NOT SYMMETRICAL VS 
ABOUT X-AXIS» SET HALFSW-TOTAL AREA) VS 

CREF ■ REFERENCE CHORD VS 

BREF2-RFFERENCE HALF SPAN VS 

ALPCON-1. IF ALPHA-1. RADIAN (IN THIS CASE»PUT ALPHA-O. AND VS 

OF -0.). -0. OTHERWISE VS 

IF ALPCON • 2 , , THE CALCULATION IS FOP ONE DESIGN LIFT CPEFFIC I ENTVS 
BASED ON THE ATTACHED-FLOW THEORY VS 

- 3. IF THF DFSIGN LIFT COEFFICIENT IS BASED ON THE VS 

VORTEX FLOW THEORY VS 


READ (INPT.2) AM,HALFSW,CREF,BPEF2,XREF,ALPCPN VS 

WRITE(JPT#2) AN, HALFSW,CPEF#BREF2,XREF, ALPCON VS 

IFUM.GT.l.) GO TO 20 VS 

GO TO 21 VS 

20 WRITE ( JPT, 22 ) vs 


22 FORMAT (/2X»34H*** THIS JOB IS ABORTED IN GEMTRY. , /5X , 43HA SUPFRSONVS 


1IC MACH NUMBER IS NOT ALLOWED ♦**) VS 

STOP vs 

21 CONTINUE VS 

VS 

♦** THE FOLLOWING OATA SHOULD BE ALL 0. IF ALPCON-1. VS_ 

ALNh-NUMBFR OF ALPHA TO BE EVALUATED. VS" 

SNUM- NUMBER OF SPANWISE STATIONS INVOLVING LIFT AUGMENTATION VS 

DVRTX - 1. IF AN ADDITIONAL DISCRETE VORTEX IS NEEDED TO VS 

CALCULATE THE AUGMENTED VORTEX LIFT EFFFCT. «0. OTHERWISE. VS 

CLDS • DESIGN LIFT COEFFICIENT IF ALPCON - 2. OR 3. VS 

• 0 OTHERWISE VS 

VS 


SNI.SNE ■ SPANWISE STRIP NUMBERS AT WHICH AND WITHIN WHICH THE VS 
LEADING-EDGE VORTEX PRODUCES LIFT AUGMENTATION ON A DOWNSTREAM VS 
SURFACE. -0. IF THERE IS NO VOPTEX LIFT AUGMFNTATION. VS 

CTILT - CHARACTERISTIC LENGTH FOR AUGMENTED VORTEX EFFECT. MAY 8E VS 
POSITIVE OP NEGATIVE. VS 

SLETH ■ LE LENGTH VS 

XCNTD • X-COORCINATE OF THE CENTROID OF AUGMENTED VORTEX LIFT. VS 
YCNTO-Y-COORDINATE OF THE CENTROID OF AUGMENTED VOPTEX LIFT VS 

XTILT « FOUIVALFNT X-DISTANCE CREATING AN ADVERSE PRFSSUPE VS 

GRADIENT OVER WHICH THE VORTFX IS ASSUMED TO PASS. VS 

SR - THE LIFTING-SURFACE NUMBER RECEIVING THE AUGMENTED VORTEX VS 

LIFT EFFECT. VS 

VS 

RE AD ( I NPT , 2 ) ALNM, SNUM, DVRTX, CLDS VS 

WRITE ( J PT, 2 ) ALNM, SNUM, DVRTX, CLDS VS 

ALPI-O. VS 

ALPINC-O. VS 

VS 

KALP-ALPCON VS 

JF_(KALP.GE.2) ALPCON-O. VS 


1031 

1032 

1033 

1034 

1035 

1036 

1037 

1038 

1039 

1040 

1041 

1042 

1043 

1044 

1045 

1046 

1047 

1048 

1049 

1050 

1051 

1052 

1053 

1054 

1055 

1056 

1057 

1058 
5059 

mo 

1061 

1062 

1060 

1064 

1065 
106 ' 
1067 

mo 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 


111 



non 


IAGVX-DVRTX 

NAUG-IACVX 

INUM-SNUH 

IF(INUM.EO.O) INUH-1 
NAIP-ALNM 

IF(NALP.EO.O) NALP *1 , . ... 

ANGLES OF ATTACK IN DEGREES* IF THERE ARF CA*BFR# L • E*FL A? 
AND/OR ROUNDED L.F. .START WITH A HIGH VALUE OF ANGLES.ALNH NUHB 

ALPA(l)-0. 

IF(KALP.EO.l) GO TO 2110 
READUNPT.2) ( ALP A ( I ) » I -1 # NALP ) 

WRITE(JPT*2)<ALPA<I)»I-1.NALP) 

DO 2111 I'l.NALP 
2111 ALPA(H-ALPA(I)*CNET 
2110 CONTINUE 

IF(KALP.GE.2) NALP-10 
DO 20<>0 1*1. INUM 

READ ( I NPT» 2 ) SN I , SNE, CTI L T (I) , SL ETH(I ) , XCNTO ( 1 ) * YCNTO ( I > , XTI ( r( 
1SR 

WRITE ( JPT.2) SNI#SNE#CTILT(I)»SLETH(I)*XCNTD(I)*YCNTD(I)#XTILT( 
1 SR 

IF (SLETH(I ) . LT. 1 . E-8 ) SLETHIIW. 

NVLKD-SNI 
NVL2 ( I ) “SNE 
NUP ( I ) «SR 

IF(NURUJ.EO.O) NUR(I)-1 
2090 XCNTO( n»XCNTD<I)-XRFF 
NVL1 ( I NUP + 1 ) *0 
NVLZ ( INUP*1 )-0 
NL'MS-SNUM 

alpi-alpirpi/ipo. 

ALPINC-ALPINC*PI /180. 

ALP-AL»A(1) 

ALO« ALP 
NCS»NS (NSUR ) 

IALP" ALPCON 
IF(IALP.FO.l) I BD«0 
DO 1124 K-l.NSt'R 
ALPB0(K,1)-PIA 
ALPBD(K,2)-PIA 
ABO(K, 1 ) ■ P I A 
AB0(K,2)-PIA 
ALB0BR(K»1)-PIA 
AL8DBR (K,2) -PIA 
ALBOBL (Kil)-PIA 
ALROBL (K.2) -PIA 
ABDR(K#1)«PIA 
ABDR (K,2)-PIA 


I) 


I) 


VS 

VS 

vs 

vs 

vs 

vs 

vs 

EPSVS 

VS 

vs 
vs 
vs 
vs 
vs 
vs 
vs 
vs 
vs 
»vs 
vs 
.vs 

V 3 
vs 

vs 
vs 
vs 
vs 
vs 
vs 

VS 

vs 

VS 

vs 
vs 
vs 
vs 

VS 

vs 
vs 
vs 
vs 
vs 
vs 
vs 
vs 
vs 
vs 
vs 
VS 


1000 

lOfil 

1002 

1063 

1004 

1005 

1006 
1007 
108P 
10P9 

1090 

1091 

1092 

1093 

1094 

1095 

1096 

1097 
1 09P 
1099 
*100 
1101 
1102 
1103 
11 ti- 
ll r-*i 

HOC- ; 
no 7 ; 
IlOf 
1109 j. 

:i i i o ! 

1111 

mz, 

1 113 
u 1 4 

1115 

1116 

111 V 

112 0 

1119 

1120 
1121 
1122 

1123 

1124 

1125 

1126 

1127 

1128 


112 


onnnonnoo 


ORIGINAL P AC-,'1 IS 

OF POOR QUALITY 


me 

C * 

*** 

**♦ 


2 INPUT LISTS MUST PH SKIPPED. 


ABDL(K»1I-PIA 
A8DL ( K # 2) "PIA 
IFCIALP.E0.1) KT»0 
K? « N$(K) 

DO 1118 I-1.K2 
RC(K, I )«0. 

IF KT - 0. THE FOLLOWING 

THE INPUT LEADING-EDGE RADIUS IS DEFINED IN THE STREAHWISE 

ICNLE T i°0*F0R CONSTANT LE RADIUS/LOCAL-CHORD RATIO. IN 
THIS RATIO IS THE ONLY INPUT. 

• 1 FOR CONSTANT LF RADIUS. IN THIS CASE# 

OF RADIUS IS INPUT. 

■ 2 FOR VARIABLE LE RADIUS-CHORD RATIO. IN THIS CASE# ALL 
VALUES OF THIS RATIO AT SPANWISE CONTROL STATIONS <NCS VALUES) 
NUST BE READ IN. 

RE AO ( INPT # 3 ) ICNLE(K) 

WR ITF ( JPT# 3 ) ICNLE(K) 

NHR-1 

IF ( ICNLE (K ) • EO . 2 ) NKR-NSCK) 

READ ( INPT » 2 ) ( RC (K # I) # I ■1#NHR ) 

WRITE ( JPT » 2 ) (RC (K# D# I»1#NHR) 


VS 
VS 
vs 
vs 
vs 
vs 
vs 
vs 
vs 
vs 

THIS CASE#VS 
VS 

THIS VALUE 


1119 CONTINUE 

: THE FOLLOWING INPUT OATA ARE 

IF ( I ALP .EQ.l) GO TO 1124 


NOT NEEDED IF ALPCON 


C 

C 

c 

c 

c 

c 


TWST • 1. IF THERE IS GEOHETRIC TWIST 
• 0. OTHERWISE 
RINC • INCIDENCE ANGLE 
TINP • INCIDENCE ANGLE 
RELATIVE TO THE 


IN DEGREES 

OF VINGLET OR VERTICAL FIN IN DEGREES# 
ROOT OF THE LIFTING SURFACE 


*** 


READ (INPT, 2) TWST, P INC (K ), TINP (K ) 

WRITE (JPT, 2) TWST, R INC (K ) #TINP(K) 

ITWSTOO-TWST 

RINC (K)«P INC (K ) *PI/ J80. 

TINP(K)«TINP(K)*PI/1P0. 

IF ( ITWST (K).EO.O) GO TO 112* 
YNUH«NU8BER OF Y-COORDINATES INPUT 
TCURV-O. IF THE TWIST DISTRIBUTION 


TO DESCRIBE TWIST DISTRIBUTION 
IS PIECEWISE LINEAR 


•1. IF IT IS CONTINUOUSLY VARYING 


*♦# 


READ (INPT, 2) YNUM,TCURV 
WR ITE ( JPT# 2 ) YNU*,TCURV 
NYH(K)-YNUH 
NTCV-TCURV 

YTS-THF nonoinensional Y-CODPDINATFS 


AT WHICH TWIST ANGLES ARE 


VS 

VS 

VS 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 


1129 

1130 

1131 

1132 

1133 
113* 

1135 

1136 

1137 

1138 

1139 

1140 

1141 

1142 

1143 

1144 

1145 

1146 

1147 

1148 

1149 

1150 

1151 

1152 

1153 

1154 

1155 

1156 

1157 

1158 

1159 

1160 
1161 
1162 

1163 

1164 

1165 

1166 

1167 

1168 

1169 

1170 

1171 

1172 

1173 

1174 

1175 

1176 

1177 


113 



oooooooo non o o 


c 

c 

c 

c 

c 


1128 


DEFINED. UNITES TO 21. 

FOR WINGLETS OR VERTICAL FINS, THE HALF SPAN OF THE ATTACHED 
LIFTING SURFACE IS USED TO DEFINE YTS „ 

CA«THE CORRESPONDING TWIST ANGLES IN DEGREES. NEGATIVE FOR WASHOUT 


K2 « NYN(K) 

READ (INPT.2) ( YTS <K, I > , I-1,K2> 

WRITE ( JPT, 2 ) (YTS(K,I),I-1»K2> 

REAO ( INPT » 2 ) (CA 1 1 ), I *1,K2) 

WRITE ( JPT»2 ) (CA(I)»I*1»K2) 

NO-NYN(K) 

00 1128 K0«1,NQ 
AW(KQ)«YTS(K,KO) 

IF (NTCV.EO.O) GO TO 1127 

CALL SPLINE(NO»AW»CA»GANP»GAMX»GAMB»GANR) 
K2 ■ NO - 1 
00 1129 K0-1,K2 
AY(K»KO)«GANP(KO) 

BY(K»KO).GAMX(KO) 


CCY(K»KO)«GAMB(KQ) 

1129 DY(K,KO)«GAMR (KO) 

GO TO 1129 
1127 00 1131 J-2.NQ 
AY(K» J-ll-O. 

BY(K, J-1)«0. 

CCY(K, J-l).(CA<J)-CA(J-lI)/{AW(J)-AW(J-ni 
1131 DY(K, J— 1)-C A C J-l ) 

11 2 A CONTINUE 


VS 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 


*♦* HEIGHT«HEIGHT OF 3/A CHOPD POINT OF N.A.C. 
•0. OTHERWISE. ATT-PITCH ATTITUDE OF WING 
•0. IF NGR0»0. 

READ ( INPT» 2) HEIGHT, ATT 
WRITE ( JPT» 2 ) HEIGHT, ATT 
ATT«$IN(ATT*PI/180. ) 

ICANB«0 

IF(ICAN(1).E0.2) ICANB-1 
DIST-DIST*2 

IF(DIST.LT.HALFBd)) DIST-HALFBd) 


FROM GROUND 
IN DEGREES, 


P«P*B/(2.*V) "MAXIMUM ROLL HELICAL ANGLE IN RADIAN 
BK-SIOE SLIP ANGLE IN RADIAN 
Rl-R*B/(2.*V) -YAW RATE PARAMETER 
IF Rl-O.. THE YAW RATE PARAMETER WILL BE CALCULATED AS 
, AND ROLL RATE PARAMETER AS P*COSCALPJ. 

CFF • SKIN FRICTION COEFFICIENT BASED ON MEAN AERODYNAMIC 
CHORO IF IBLC ■ 1. -0, OTHERWISE. 

RBK » 1 . IF ROLL DA MPING IS OBTAINED IN _A NONZERO. SIDESLIP. «0 


IF NGRD-l.VS 
VS 
VS 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

P*SIN(ALP)VS 

VS 


vs 

vs 

vs 


1178 

1179 

1180 
1181 
1182 
1183 
118A 

1185 

1186 

1187 

1188 

1189 

1190 

1191 

1192 

1193 
1199 

1195 

1196 

1197 

1198 

1199 

1200 
1201 
1202 
1203 
1209 

1205 

1206 

1207 

1208 

1209 

1210 
1211 
1212 
1213 
1219 

1215 

1216 

1217 

1218 

1219 

1220 
1221 
1222 
1223 
1229 

1225 

1226 



o rvo.n nnrt 


original page is 

of POOR QUALITY 


C 

C 


OTHERWISE 

'p-0. 

BK-0. 

RL-0. 

tFF-O. 

PBK-0. 

PPT • 0. 

IFCLAT .NE. 1) SO TO 1002 
READ ( INPT ,2) P,BK»RL»CFF»PRK 
WRITE C JPT»2 J P,BK,RL*CFF»P8K 
1002 CONTINUE 


.AND. ABS(P) .LT. 0.00001) P-0.1 
.AND. ABS(BK).LT. 0.00001) BK-O.l 


IF (LAT . EO.l 
. IF CL AT .EO.l 
vP>P*1000. 

HP-P 

P-NP/1000. 

IFCLAT. NE.l) GO TO 50 
6KK-0. 

IFCPBK.GT.0.01) BKK-PK 
PPT-P- 

IFCP.LT.0.05) P-0.05 
DO 51 K-1»N$UR 
K2 - NCCK) 

DO 51 KK-1,K2 

SKK-DUNTC1»K,KK ) 

SK p»$ KK-BKK 

SK0-DUMTC2»K»KK )*COSCBKK)*COSCSKP) /CCOSCSKK )*P**0.2) 

SKO-ATANCSKO) 

SWPPCK»KK)-COS(SKPIFCOSCSKO) 

WR ITE C JPT, 2 ) SKP,SKO,SWPPCK,KK) 

51 CONTINUE 
50 CONTINUE 
LWF-LPANEL 

IF CBREF2.LT. l.E-3) BREF2-HALFBC1) 

NTL-0 

KW-0 

WKN-O. 

RDX-O. 

*** KF-1 IF THF FUSELAGE IS PRESENT, -0 OTHERWISE. NT-NUNBER OF 

FOURIER TERNS EXCLUDING THE 7ER0-0PDER TERN. NCUN-NUNBER OF CIR- 
CUNFERENTIAL LOCATIONS AT WHICH PRESSURE LOADING IS 
. NF-NUNBER OF CONTROL STATIONS ALONG THE FUSELAGE AXIS 
* FOR MIDWING CONFIGURATIONS, USE EVEN NUNBERS FOR NCUH * 


BE 

**♦ 


.READ C INPT , 3 ) 

-WMTEJJPT,3.i 


KF»NT»NCUN»NF 

KF,NT,NCUN,NF 


VS 

1227 

vs 

1226 

vs 

1229 

vs 

1230 

vs 

1231 

vs 

1232 

vs 

1233 

vs 

1234 

vs 

1235 

vs 

1236 

vs 

1237 

vs 

1238 

vs 

1239 

vs 

1240 

vs 

1241 

vs 

1242 

vs 

1243 

vs 

1244 

vs 

1245 

vs 

1246 

vs 

1247 

vs 

1248 

vs 

1249 

vs 

1250 i 

vs 

1251 

vs 

1252 

vs 

1253 

vs 

1254 

vs 

1255 

vs 

1256 

vs 

1257 

vs 

1258 

vs 

12591 

vs 

1260 

vs 

1261 

vs 

1262 

vs 

1263 

vs 

1264 

vs 

1265 

vs 

1266 

vs 

1267 

vs 

1268 

vs 

1269 

EDVS 

1270i 

vs 

1271 

vs 

1272 

vs 

1273, 

1274* 

vs 

vs 

1275 
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r>oor>ooooooor>ooo 


c 

c 


KW-1 

NKF( 1 ) -NF 
NKF(2>«0 

IF (KF .EO. 0) GO TO 1040 

NTL-MT*NF 

KWl-KW+1 


*** X -COORDINATES DEFINING THE FUSELAGE SEGMENTS* INCLUDING THE NOSE 
AND THE TAIL# FUSIND-O. IF THF FUSELAGE GEOMETRY IS TO BE DEFINED 
ANALYTICALLY IN FUNCTIONS FUR(X) AND SLOP(X)» -1. OTHERWISE...... 

FUSNO-NUMRER OF FUSELAGE STATIONS TO BE INPUT TO DEFINE THE 
SHAPE IF FUSINO-1. # -0. OTHERWISE ♦♦♦ 

*** FSHAP -1. IF THE INPUT FUSELAGE SHAPE IS TO PE INTERPOLATED 
THROUGH CUBIC SPLINE INTERPOLATION 

•0. IF INPUT POINTS FOR THE FUSELAGE SHAPE ARE CONNECTED 
WITH STRAIGHT SEGMENTS 
• ARBITRARY IF FUSINO-O. 

♦ Xl-GODY STATION IN FRACTION OF BODY LENGTH AT WHICH THE RATE OF 
CHANGE OF CROSS-SECTIONAL AREA WITH BODY LENGTH FIRST REACHES 
MAXIMUM NEGATIVE VALUE. SEE DATCOM * 


REA0(INPT.2) (XASm*I-l#KWl)»FL'SIND.FUSNO»FSHAP,Xl 
WRITE (JPT* 2) (XAS(I) »I-1»KW1) »FUSIND»FUSN0#FSHAP»X1 
IF(Xl.LT.O.Ol) Xl-1. 

IF (XI . GT. 1 . ) Xl-1. 

IFR-FUSIND 

IFN-FIISNO 

IFSP-FSHAP 

♦♦♦IF FUSINO-1., READ IN THE FUSELAGE X-STATIONS AND THE RADII. 
OTHERWISE, SKIP ♦♦♦ 

IF { IFR .EO. 0) GO TO 26 
READ ( INPT.2 ) ( XFF ( I ) » I -1 # IFN ) 

REA0CINPT.2) (R FF ( I » » I -1 # IFN ) 

WRITE ( JPT, 2 ) ( XFF ( I ) # I °1 » IFN ) 

WR ITE ( JPT* 2 ) (RFF (I)* I-l* IFN) 

IF(IFSP.EO.O) GO TO 250 

CALL SPLINE ( IFN* XFF* RFF* A AF» BBF.CCF* DDF ) 

GO TO 26 

250 DO 251 J-2* IFN 
AAFC J-D-O. 

B8F( J— 1 ) -0. 

CCFC J-1)-(RFF( J)-RFF(J-l) >/ (XFF ( JI-XFF < J-l) J 

251 ODF( J-l)-RFF(J-l) 

26 CONTINUE 

XLFF-XAS(l) 

XTEF-XAS (KW1 ) 

IF ( VN ( 2# 1 ) .LE. 0.01) GO TO 31 

IF ( 2CP ( 2 ) .GE. 0.) TH1-P I /2 ,-ATAN ( ZCP ( 2 ) /YN( ?#11 ) 

IF (?CP ( 2) .LT. 0.) THl-PI/2. +ATAN( ABS(7CP(2))/YN(2# l) > 


VS 

1276 

vs 

1277 

vs 

1278 

vs 

1279 

vs 

1280 

vs 

1281 

vs 

1282 

vs 

1283 

vs 

1284 

,vs 

1285 

vs 

1286 

vs 

1287 

vs 

1288 

vs 

1289 

vs 

1290 

vs 

1291 

vs 

1292 

vs 

1203 

vs 

1294 

vs 

1295, 

vs 

1296 

vs 

1297 

vs 

1298 

vs 

1299 

vs 

1300 

vs 

1301 

vs 

130? 

vs 

1303 

vs 

1304, 

vs 

1305 

vs 

1306 

vs 

1307 

vs 

1308 

vs 

1309 

vs 

1310 

vs 

1311 

vs 

1312 

vs 

1313 

vs 

1314 

vs 

1315 

vs 

1316 

vs 

1317 

vs 

1318 

vs 

1319 

vs 

1320 

vs 

1321 

vs 

1322 

vs 

1323 

YS 

1324 
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IF ( ZCP(2) .LT. 0.) GO TO 53 

IF (A*S(ZCP(2)) .LE. 0.001) GO TO 54 

F1-TH1/PI*FL0AT(NCUM) 

NH1-F1 

IF (NH1 .IT. 2) NH1*2 
GO TO 32 

53 TH2-PI-TH1 
F2-TH2/PI*FL0AT(NCU8) 

NH2-F2 

IF ( NH2 .LT. 2) NH2-2 

NH1-NCUM-NH2 

GO TO 32 

54 NH1-NCUM/2 
GO TO 32 

31 NH1« 0 
TH1-0 

32 CONTINUE 
SNP(5,20)-TH1 
SNP(5,19)-NH1 
CALL GEOFUS 

lwf-lpanel+ntl 

WKN«-8.*PI*RDX 
1040 CONTINUE 

IF(LWF.GT.195) GO TO 23 
GO TO 24 

23 WRITE ( JPT, 25 ) 

25 FORM AT ( /2X» 34H*** THIS JOB IS ABORTED IN GENTRY . »l 
1ER OF UNKNOWNS EXCEEDS 195.#/5X,56HDINENSI0NS FOR 
2DWASH HUST BE CHANGED ♦*♦) 

STO® 

24 CONTINUE 
P-PPT 
PT-P 
IRL-0 

IF(ABS(RL).LT. 0.0001) IRL-1 
WRITE (JPT»4) HALFSW/CREF 
WRITE (JPT, 403) 

WRITF (JPT, 412) .. „ 

WRITE ( JPT# 7) ( XN( I # 1 ) »XN ( 1,2 ) #YN( 1,1 ) , YN( I ,2 ) , ZN ( 

1LPANEL) 

WRITE (JPT, 404 ) 

WRITE (JPT, 411) 

WRITE (JPT, 7) (XCP(I),YCP(I),ZCP(I),I-1#LPANFL) 

Jl-LWF+1 

B*1 . “AH4AN 

B2 

ALZ-ALP*180./PI 
REWIND 04 
REWIND. _d2_ 


VS 

1325 

vs 

1326 

vs 

1327 

vs 

1326 

vs 

1324 

vs 

1330 

vs 

1331 

vs 

1332 

vs 

1333 

vs 

1334 

vs 

1335 

vs 

1336 

vs 

1337 

vs 

1338 

vs 

1339 

vs 

1340 

vs 

1341 

vs 

1342 

vs 

1343 

vs 

1344 

vs 

1345 

vs 

1346 

vs 

1347 

vs 

1348, 

vs 

1340 

vs 

1350 

BVS 

1351 

vs 

1352 

vs 

1353 

vs 

1354 

vs 

1355 

vs 

1356 

vs 

13571 

vs 

1358 

vs 

1359 

vs 

1360 

vs 

1361 

vs 

1362 

,vs 

1363 

vs 

1364 

vs 

1365 

vs 

1366 

vs 

1367 

vs 

1368, 

vs 

1369 

vs 

1370 

vs 

1371, 

vs 

1372 

vs 

1373 
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ICOUNT-O 
DO 2000 I-1#NCS 
2000 CNALP(I)-0. 

NC6-10 

FN-NCG 

00 2010 I-1#NCG 
FI-I 

AG-<2.*FI-1, )*PI/(2.*FN) 

CTG( I ) "COS t AG ) 

2010 STGd)-SIN(AG) 

RETURN 

END 

C FORTRAN NLSTIN 

SUBROUTINE GEOFUS 

C TO GENERATE THE FUSELAGE GEOMETRY 

COMMON /FUS/ XF(2O)»XCF(2O>.RF(2O),SNPf5,2O)#XlEF#XTEF,WAR0{2O)# 
1NCUM,NF#NT#CSF(5»10)»XAS(6)»NKF(5)»F0#F10»KF»NTL#LMF»VKN»RDX,X1 
PI-3. 1*150265 
S-XTEF-XLEF 
TH1-SNP<5,20) 

NH1-SNP(5*10) 

RDX-SLOP(XLEF) 

NF1-NF+1 

FNT-NT 

DO 20 I-1*NT 
FI-I 

DO 20 K-l.NCUM 

IF (NH1 ,NE. 0 .AND. K .IE. NH1 ) GO TO 10 

FK-K-NH1 

FCUM-NCUM-NH1 

PP-PI-TH1 

TP-TH1 

GO TO 11 

10 FK-K 
FCUM-NH1 
PP-TH1 
TP-O. 

11 CONTINUE 

TA-(2.*FK-1. )*PP/(2.*FCUM)+TP 
20 CSF(I,K)-COS(FI*TA) 

IK-0 

FNF-NKF ( 1 ) 

XO-XAS(l) 

N2-1 

Nl-NKF(l) 

SL-X AS ( 2)-XAS ( 1 ) 

DO 1 I-l.NF 

H-I-IK 

FI-H 


VS 

137* 

VS 

1373 

vs 

1376 

vs 

1377 

vs 

1378 

vs 

1370 

vs 

1380 

vs 

1381 

vs 

1382 

vs 

1383 

vs 

138* 

vs 

1385 

vs 

1386 

vs 

1387 

vs 

1388 1 

vs 

1380 

vs 

1300 

vs 

1301 

vs 

1302 

vs 

1303 

vs 

130* 

vs 

1303 

vs 

1306 

vs 

1307 

vs 

1308 

vs 

1300 

vs 

1*00 

vs 

1*01 

vs 

1*02 1 

vs 

1*03 

vs 

1*0* 

vs 

1*05 

vs 

1*06 

vs 

1*07 

vs 

1*08 

vs 

1*00 

vs 

1*10 

vs 

1*11 

vs 

1*12 

vs 

1*13 

vs 

1*1* 

vs 

1*15 

vs 

1*16 

vs 

1*17 

vs 

1*18 

vs 

1*10 

vs 

1*20 

vs 

1*21 

HI 

.1422 
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XF (I ) «X0 ♦0.5*SL*(l.-C0S((2.*FI-l.)*PI/<2.*FNF)n VS 

XCF(I)-XO ♦ 0.5*SLM1.-COS(FI*PI/FNF>> VS 

SNP(N2»M)»SIN((2«*FI-1»)*PI/(2«4FNF)) VS 

XC-XCF(I) VS 

RF(I)«FUR(XC) VS 

IF(I.NE.Nl.OR.I.EQ.NF) GO TO 1 VS 

N2-N2+1 VS 

IK-N1 VS 

N1-N1+NKF(N2) VS 

SL-XAS(N2*1)-XAS(N2) VS 

FNF-NKF(N2) VS 

XO«XAS(N2) VS 

1 CONTINUE VS 

2 FORMAT (8F10.5) VS 

RETURN VS 

END VS 

FORTRAN NLSTIN VS 

SUBROUTINE PANEL < XXL » YL» XXT»CPCVL *CPSWL »NS V* IP ANEL »LPANEL » VS 

17S,L»IK,IPN) VS 

TO DEFINE SURFACE PANFIS FOR LIFTING SURFACES VS 

DIMENSION XXL<l)*YL<l)*XXT(l)»CPCVLm*CPSVLU> VS 

COMMON /SCHEME/ C ( 2 )» X (15# 41)*Y ( 15*41 )* SLOPE ( 15) *Xl ( 2,15 > »XTT< 4 1 ) * VS 
lXLL(Al) VS 

COMMON /GEOM/ HALFSW*XCP(200)*YCP(200)»ZCP(200)»XLE(100)»YLE(10C)»VS 
1XTE( 100)* PS I (30)»CH(100) * XV ( 2C0 ) » YV< 200 ) » SN ( 6, 1 5, 2 ) , XN ( 200* 2 ) » YN ( 2VS 


200*2) »ZN< 200*2) * V IDTH ( 6 » 5 > * YCON ( 51 ) # SWEEP ( 100 ) * HALF B ( 6) *S J < 6* 31 * 5 ) VS 
COMMON /CONST/ NC S*NC V* Ml { 6* 5 ) , HJ W1 ( 6* 2 * 5 ) »MJW2 (6*2* 5 ) » N jy ( 6* 5 ) , VS 


1NFP(6) *NW(6»2) VS 

COMMON/ BETA/ GMAX(50)*XTG(50)*YTG( 50) * ZTG ( 50 ) *B2*NCG*CTG ( 1 5 ) *STG ( 1VS 
15) »DIST*P»BK*RL»CFF VS 

PI -3 • 1 4159265 VS 

NSW1-NSW-1 VS 

NR-B2 VS 

NASYM-YCON( 50) VS 

IF(IPN.EO.l) GO TO 20 VS 

DO 1 1-1*2 VS 

C(I)*XXT(I)— XXL(T) VS 

00 1 J«i»NCW VS 

1 XL(I»J)-XXL (I)+CPCWL(J)*C(I)/100. VS 

SP AN » YL ( 2 )-YL ( 1 ) VS 

DO 2 J-1#NCM VS 

PSI(J)“0.5*(l»-C0S(FL0AT(J)*PI/FLOAT(NCW))) VS 

SL0PF(J)«(XL(2, J)-XL(1»J) )/SPAN VS 

2 CONTINUE VS 

SPN«(XXT(2)-XXT(1))/SPAN VS 

DO 3 K -1* NSW VS 

YK-CPSWL(K)*SPAN/100. VS 

IF(NV( IK* 2 ) ■ EO • 0 ) GO TO 10 VS 

IF(L.EO.l) GO TO 12 VS 


1423 

1424 

1425 

1426 

1427 

1428 

1429 

1430 

1431 

1432 

1433 

1434 

1435 

1436 

1437 

1438 

1439 

1440 

1441 

1442 

1443 

1444 
144? 

1446 

1447 
144R 

1449 

1450 

1451 

1452 

1453 

1454 

1455 

1456 

1457 

1458 

1459 

1460 

1461 

1462 
146? 

1464 

1465 
1466, 

1467 

1468 
1469, 

1470 

1471 
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10 KK-NR+K 

YTG(KK)-YU1)*VK 

XTG(KK)-XXT(1)+SPN*(YTG(KK>-Yim) 

ZTG(KK)-ZS 
12 CONTINUE 

DO 3 J -1, NCW 
Y( J*K ) -YK+YL t 1 ) 

X(J,K)-XL(1,J)+SL0PE(J )♦ ( Y( J»K )— Yl (1 ) ) 

3 CONTINUE 

XLL(1I-XXL(1) 

XTTd)-XXT(l) 

IF (N ASYM« EO.O ) GO TO 16 

XLL<l)-XXL<l)*(XXL(2>-XXl (1) )*CPSWl (11 /100. 
XTT(1)-XXT(1)*(XXT(2)-XXT(1) ) *CPSWL ( 1 ) /100. 

16 CONTINUE 

DO 15 1-2, NSW 

Xlim-Xll(I-l) + mL(2 J-XXL (1) )♦( Y (1,1 )-Y( 1,1-1) ) /SPAN 
15 XTT(I)-XTT(I-1)+(XXT(2)-XXT(1))*(Y(1#I )— Y (1,1—1 ) )/SPAN 
GO TO 25 

20 DO 30 J-1,NCW 
FJ-J 

30 PSI( J) -0.5* (1. -COS (FJ* PI/ FLOAT (NCW) ») 

SPAN-YL ( 2 J-YL (! ) 

DO 35 K-l , NSW 
YK-CPSWl (K)*SPAN/100» 

YC-YK 

IF (NW ( IK, 2 ) *EO,0 ) GO TO 31 
IF(L.EO.l) GO TO 32 

31 KK-NR+K 

YTG( KK )-YL(l)+YK 
ST-SHAPTE ( YC ) 

XTG(KK)«XXT(1)*ST 
ZTG( KK ) -ZS 

32 CONTINUE 

Xll(K)«SHAPLE(YC)+XXl(l> 

ST-SHAPTE ( YC 1 
XTT ( K ) -ST+XXT ( 1 ) 

CHORD- XTT (K)-XLL(K) 


VS 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 


DO 35 J-l, NCW vs 

Y ( J, K ) -YC ♦ Yl { 1 ) y S 

X( J,K) -XIMKJ+CPCWL (J )*CH0RD/100. u* 

35 CONTINUE v ; 

25 CONTINUE vs 

DO 6 K • 1 , NSW1 vs 

KK-NCS+K V 5 

YLE(KK)-YC0N(K)*SPAN+YL(1) VS 

XIE(KK )-XLL(K ) ♦ (XLL (K*l )-XLL (K ) )*( YLE(KK )-Y(l*K ) )/(Y(l,K+l )-Y(l,K )VS 

XTE ( KK ) -XTT ( K ) ♦ ( XTT ( K ♦ 1 ) -XTT ( K ) 1 *( Y_LE_< K_KJ-YJ ) ) / ( Y( 1, K*1 )-Y( 1 ,K ) VS 


1672 

1673 
1676 

1675 

1676 

1677 

1678 

1679 

1680 
1681 
1682 
1683 
1686 

1685 

1686 

1687 

1688 

1689 

1690 

1691 

1692 

1693 
1696 

1695 

1696 

1697 

1698 

1699 

1500 

1501 

1502 

1503 
1506 

1505 

1506 

1507 
1503 

1509 

1510 

1511 

1512 

1513 
1516 

1515 

1516 

1517 

1518 

1519 

1520 
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1) 

VS 

1521 

CHOCK l«XTE(KK)-XLE<KK) 

VS 

1522 

IF(IPN.EO.l) GO TO 40 

VS 

1523 

SWEEP <KK)-ATAN< < XXL (2 l-XXl (1) > /SPAN) 

VS 

1524 

GO TO A? 

VS 

1525 

40 SIP»<XLL<K+1)-XLL<K))/CY(1»K*1)-Y<1»K)) 

VS 

1526 

SWEEP(KK)«ATAN(SLP) 

VS 

1527 

45 CONTINUE 

VS 

1528 

DO 6 J«1»NCW 

VS 

1529 

NPANEL* (K-1)*NCW ♦J-l+IPANEL 

vs 

1530 

00 5 I -1# 2 

vs 

1531 

KI1-K+I-1 

vs 

1532 

4 XN(NPANEL»I)-X< J,KI1) 

vs 

1533 

VN(NPANEL»I)-Y( J»KI1) 

vs 

1534 

2NCNPANEL# I )-ZS 

vs 

1535 

5 CONTINUE 

vs 

1536 

XCPCNPANEL)-XLE(KK)+PSI( J >*CH(KK ) 

vs 

1537 

YCP(NPANEL)-YLEtKK) 

vs 

1538 

ZCP<NPANEL)»ZS 

vs 

1539 

XV (N PAN EL )-XLE(KK)«-CPCWL( J)*CHCKK) /100. 

vs 

1540 

YVCNPANEL)-YLE(KK) 

vs 

1541 

6 CONTINUE 

vs 

1542 

LPANEL “NPANFL 

vs 

1543 

RETURN 

vs 

1544 

END 

vs 

1545 

FORTRAN NISTIN 

vs 

154b 

SUBROUTINE SPL INF ( N#X * Y# A *B »C #D ) 

vs 

1547 

CUBIC SPLINE INTERPOLATION 

vs 

1548 

DIMENSION SC125)#H(22),CA(22)#X(1)#YC1) 

vs 

1549 

DIMENSION A(1)*B(1)#C(1)»D(1) 

vs 

1550 

1-1 

vs 

1551 

NI«N+1 

vs 

1552 

Nl-N-1 

vs 

1553 

H( NI ) *0 • 

vs 

1554 

H( 1) «X < 3)-X ( 2) 

vs 

1555 

HC2) *-X (3 )+X t 1) 

vs 

1556 

HC3I»X(2)-XC1I 

vs 

1557 

DO 1 K-4tN 

vs 

1558 

1 H<K)-0. 

vs 

1559 

DO 3 K *1# N 

vs 

1560 

5 S (K) •— HCK+1 ) /H(l ) 

vs 

1561 

NJ-N-1 

vs 

1562 

00 10 I-2»N 

vs 

1563 

IF (I .EO. N) GO TO 12 

vs 

1564 

HIND ■-&•*( (Y(I+l)-Y(I))/(X(I*l)“XtII)- 

(vm-Yci-m/txm-xa-i) )vs 

1565 

1) 

vs 

1566 

GO TO 14 

vs 

1567 

12 H(NI)>0. 

vs 

1568 

14 DO 15 J • N 

vs 

1569 
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HtJ)>0. 

VS 

1570 


IF (I .E0. N) GO TO 20 

vs 

1571 


IF (J .LT. CI-1) .OR. J .GT. mill GO TO 15 

vs 

1572 


HI 1-1 1 -X < 1 1-X < I— 1 1 

vs 

1573 


HCI)«2.*IXCI*1)-X(I-1) ) 

vs 

1574 


hix+d-xc x+n-xm 

vs 

1575 


GO TO 15 

vs 

1576 

20 

H<N-2)*X(N>-X(N-1) 

vs 

1577 


H(N-11— X(N)+X(N-2) 

vs 

1378 


H(N)«X(N-1)—X(N— 2) 

vs 

1579 

15 

CONTINUE 

vs 

1580 


Il-I 

vs 

1581 


CALL VMSEON(NJ»II»H*S#CA) 

vs 

1582 


NJ-NJ-1 

vs 

1583 

10 

CONTINUE • 

vs 

1584 


00 25 I-1#N1 

vs 

1585 


ACI>-CS(I*1)-S(I))/C6.*CX(I*1)-X(I))) 

vs 

1586 


B(I)-S(I>/2. 

vs 

1587 


cm - tY(i*i)-vm )/<xn+i)-x(in-<x(i*i>-x(i)>*i 2 .*sm«-sci*i) »/ 

vs 

1588 

16. 

vs 

1589 

25 

O(I)-YCI) 

vs 

1590 


RETURN 

vs 

1591 


END 

vs 

1592 


FORTRAN NLSTIN 

vs 

1593 

’■ , 

FUNCTION SHAPLECY) 

vs 

1594 


TO OEFINE CURVED LEADING EDGES 

vs 

1595 


CONNON/SHPLE/ NLE * YSL ( 1 5 ) * AOL ( 14 ) * «0L < 14) #COL ( 1 A ) » DOL ( If » 

vs 

1 596 


K"1 

vs 

1597 

1 

IF(Y.GE.YSL(K).AND.Y.LT.YSL(K+1)) GO TO 2 

vs 

1598 


K»K«-1 

vs 

1599 


IF (K . GE .NLE ) GO TO 3 

vs 

1600 


GO TO 1 

vs 

1601 

2 

SN«Y-YSL(K) 

vs 

1602 


SHAPLE«AQL(K)P$M**3*B0L (K)*SN*SM+COL(K)*SH*DOL(K> 

vs 

1603 


GO TO 5 

vs 

1604 

3 

IF CY.LT.YSL Cl ) ) GO TO 4 

vs 

1605 


K-NLE-l 

vs 

1606 


GO TO 2 

vs 

1607 

4 

K-l 

vs 

1608 


GO TO 2 

vs 

1609 

5 

RETURN 

vs 

1610 


END 

vs 

1611 


FORTRAN NLSTIN 

vs 

161? 


FUNCTION SHAPTE(Y) 

vs 

1613 


TO OEFINE CURVED TRAILING EDGES 

vs 

1614 


COHNON/SHPTE / NT£#YST(15)#A0T(14)»BQT(14)#C0T(14)#D0T(14) 

vs 

1615 


K«1 

vs 

1616 

1 

IF(Y.GE.YST(K).AND.Y.LT.YST(K*1) ) GO TO 2 

vs 

1617 


K»K*1 

vs 

1618 
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IFCK.GE.HTE) GO TO 3 
GO TO 1 

2 SHAPTE-AQT(K ) *SM**3+BQT (K )*SH*SH*C OTC.K )*SH*POT CK ) 

GO TO 5 

3 IF (Y.LT.YST (1 ) ) 60 TO 4 
K-NTE-1 

GO TO 2 

4 K-l 

GO TO 2 

5 RETURN 
END 

C LINK LINK22#LINK11 

C FORTRAN NLSTIN 

?S B ?pt T up E oownwash coeff. matrix and obtain solution 

I tI ^ElHe CONSISTENT WITH THE OESIREP MATRIX SIZE WITH A 
HAXIHUH EOUAL TO 200. THE DIMENSION FOR GANNA SHOULD BE IR*IP. 
DIMENSION GAMMA (38025 ) 

DIMENSION GAN ( 200 ) 

C PARAMETER IP-105 

DIMENSION DO { 105* 19? ) 

pout VALENCE ( 00 ( 1 # 1 )# GAMMA ( 1 ) ) 

COMMON /DSL/ CTP(6>2)#CHOR0T(fc#4)#SCHC20O)#LAT#CREF#BREF2 
DIMENSION DMM(200)»AW(201 )#CA(200) »BW(200) vtT!41 

COMMON /SCHEME/ C ( 2 > » X C 1 5 » 41 ) # Y ( 15 # 41 ) » SLOPE ( 15 ) » XL < 2# 15 ) # XTT < 41 

^tommon * /r FnM/ HALFSW#XCPC200)»YCP(200)»ZCP(?00)#XLE(100)»YLE(100 

i «TF( TOO) »PSI (30)#CH(100) # XV (200) » YVC200) »SN(6»15»2 ) »XN(2C0»2)»YN 

skk jjsk/ks 

^ f nMMDN* /C AMB/*ICAM(6)»IM(6»10)»XT(6»10#21)»AAM(6#10»20)#BBM(6»10 

io POl.nPN 6.10/20)#YT(6#10)#CURV(6#10)#CHNP<6,10) 
'cS^N 5eJ T RA/ LPN ( 6) »NS (6)# ICNLE (6) # ITWST(6) # IST(6) *NGRO»HFIGHT 
1 ATT. NT (61 •NVING(fe)#IP0S(6) # I ALP • DUHT < 3> 6# 15 ) • HAL FBH ( 6 ) 

COMMON/ BETA/ GM AX ( 50 ) # XTG ( 50) # YTG C 50) # ZTGC 50) #B2#NCG# CTG C 15 »STO 

^COHMQN^/LEFLP/^ YLEF (6#10#2)# XNF (6# 10) # YNF (6#10) #7NF (6#10)#XLF(6# 

^COMMON^ /TWST1/'nyM(6)#YTS(6»21)#AY(6#20)#BY(6#20)#CCY(6#20)#0Y(< 

l COMMON/SHPLE/ NLE# YSL ( 15 ) # AOL t 14)# 80L < 14) >COl C 14) *00L (14) 
COMMON/SHPTE/ NTE,YST(15)»AOT(14).ROTC14),COTC14)#OOTC14) 

C0MM0N/L00P/KP#NALP»KALP»TANC2»CLDS» AL»CLII# ALPII# ALRAt 1 


VS 

vs 

vs 

vs 

vs 

vs 


1619 

1620 
1621 
1622 

1623 

1624 


ALP# J1#CP( 200) » GAMP (200) #GAMB (200) »GAMRC 200) 
LiGAMX(200)»2ZCP(200)»DZY(200)#BMR(6»50)#BML(6#50)#C 

CQMAQM ./ S S s_/. NASY.M# NS UJ R_>_L_P AN LEJL #ICAMB #NUHS#IAGVX#PT 


vs 

1625 

vs 

1626 

vs 

1627 

vs 

1628 

vs 

1629 

vs 

1630 

vs 

1631 

vs 

1632 

vs 

1633 

vs 

1634 

vs 

1635 

vs 

1636 

vs 

1637 

vs 

1638 

vs 

1639 

vs 

1640 

vs 

1641 

vs 

1642 

vs 

1643 

1 # vs 

1644 

vs 

1645 

1 #v$ 

1646 

(2VS 

1647 

5 )VS 

1648 

vs 

1649 

VS 

1650 

vs 

1651 

# vs 

1652 

vs 

1653 

# vs 

1654 

vs 

1655 

(1VS 

1656 

vs 

1657 

10VS 

1658 

vs 

1659 

! # VS 

1660 

vs 

1661 

vs 

1662 

vs 

1663 

vs 

1664 

vs 

1665 

vs 

1666 

vs 

1667 
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1,NAUG»IBO,P8K»PIS#IDIH,ALPINC»IRL»KT*PI»ALO,ALZ V| 

2#NC1» NC2i IBLC *f 

COMMON/GD/ TINP<6)#BREAK(6»10)#TFlPt6#5)#RINCC6>*NAl<6> VS 

1#Y8RFAK(6*7)»DC0S(6»5)#DSIN(6#5)»IVIN6(6)»IVGLT<6)»IV<6)»LPAN1(6) VS 

1» ICAHT (6) *5 

COMMON /GOSL/ DF(6#5)»YCN(6»4)»NIEF (6) *NVRTX(6> » SNALP ( 50 ) »CN ALP < 50 ) VS 
1#ALPH< 50) #AUX<6»5)#CRX ( 6* 5 ) # XTI LT < 6) »SLETH( 6) * YCNTO C 6 ) VS 

l»NVLl<61>NVl2<6)*XCNTD<M»CTIlT(M»SWPP<ft#5>»RCC6#50>»XREF VS 

1»8UX(6»5)»SE(3>6*15)»NUR<6)»CVR(50)»CPAUGI200) VS 

l#ALPB0(6#2)*MX(6)»ALPDBR<6#2)#ALBDBL(6»2)»MVPTX(fc) V 

COMMON /FUS / XF(20)»XCF(20)»RF(20)»SNP(5#20)»XLEF#XTEF»WARO(20)» VS 
1NCUM# NF*NT»CSF C5»10)» XAS (6)»NKF (5) »FO#F10#KF»NTL#LWF# VIKN#ROX#XU VS 

COMMON /INOUT / INPTtJPT 

2 FORMAT (8F10.6) y 

3 FORMAT (8(6X*I4)) " 

7 FORMAT (11F10.5) 

IP - 1<J5 J| 

NPP-NALP ’.I 

SS-SIN(ALP) l\ 

cs-cos(alp) y 

IF(IALP.FO.l) SS-1. V; 

IF(IALP.EO.l) CS-1. V; 

IF(IALP.EO.l) GO TO 1001 v - 

KM-l V; 

00 1005 I-l.NCS v ; 

IF (ITWSTOO.EO.l) GO TO 1000 V. 

ALPH(I)»AIP*RINC(K> V! 

IF (IVING(K) .NE.O .AND. I • GT . IWING ( X) ) GO TO 1006 V! 

SNALP(H-SIN(ALPH(I)) V! 

CNALP(I)»COS(ALPH(I)) V; 

GO TO 1010 V ' 

1000 YC-YLE(KM)/HALFB(K) V; 

IF(IVING(K).NE.O.ANO.I.GT.IVING(K)) GO TO 1006 V! 

CALL TWIST ( YC » ATW* K ) V! 

ALPH( I)«ALP*RINC(K)4ATW v: 

SNALPm»SIN(ALPH(in y 

CNALP(n-COS«ALPH(I)) v 

GO TO 1010 * 

1006 ALPH( I )-TINP(K)+ALP V 

SNALP(I)«SIN(ALPHmi V 

CNALP(I)-COS(ALPH(I)) V 

1010 KM-KM+1 V 

IF(I.NE.NSCK) ) GO TO 1005 V 

IF (NW (K»2).E0.0) GO TO 1005 V 

IF(K.EO.l) KM-KM+NS(K) V 

IF(K.GT.l) KM»KH*NS(K)— NS (K— 1 ) V 

1005 IFd.EO.NSOO) K»K*1 V 

.1001 CONTINUE V 


TO 1000 

► I.GT.IWING(K) ) GO TO 1006 


VS 

1668 

vs 

1669 

vs 

1670 

vs 

1671 

VS 

1672 

vs 

1673 

vs 

1674 

vs 

1675 

VS 

1676 

vs 

1677 

vs 

1678 

vs 

1670 

vs 

16B0 

vs 

1681 

vs 

1682 

vs 

1683 

vs 

168* 

vs 

1685 

vs 

1686 

vs 

1687 

vs 

168B 

vs 

1680 

VS 

1600 

vs 

1601 

vs 

1602 

vs 

1603 

vs 

1604 

vs 

1605 

vs 

1606 

vs 

1607 

vs 

16Q8 

vs 

1600 

vs 

1700 

vs 

1701 

vs 

1702 

vs 

1703 

vs 

1704 

vs 

1705 

vs 

1706 

vs 

1707 

vs 

1708 

vs 

1700 

vs 

1710 

vs 

1711 

vs 

1712 

vs 

1713 

vs 

1714 

vs 

1715 

vs 

1716 
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r> o r> o 


ORIGINAL r'ACvII ;S 

OF POOR QUALITY 


c 


c 


SETTING-UP OF BOUNDARY CONDITIONS 
NF2« 2*NF 
F0>0* 

FIO-O. 

GB0»0. 

IF ( K F .EO. 0) GO TO 99 

F0-4.*PI*C$*RDX 

FlO«-8.*PI*$$*P0X 

CALL FALONE (8#CS» AW»CA»GANHA) 

WR ITE ( JPT# 2 ) (WARD < I ) # I"1#NF) 

IF(KP.GT.l) GO TO 99 

♦ COMPUTE THE INFLUENCE COEFFICIENTS DUE TO THE PRESENCE OF THE 
FUSELAGE# AND STORE ON FILE (02) * 


VS 

VS 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 


CALL VELFUS(LPANEL»AW»BW»AM»LPAN1» IWING#NC1»DC0S#0SIN#NASYM»YBR 
1#LPN.NS»IWGLT#NC»BREAK ) 

REWIND 02 
REWIND 0* 

READ (03) (CP(I)»I-1#LPANEL) 

99 CONTINUE 

IF(KP.EQ.l) REWIND 01 
MH«NW(1»1) 

Jl-LWF+1 

IZ-1 

IPN-1 

IF (NW ( 1# 2 ) • EO.O) GO TO 12 
II«1+NS (1 ) 

CH0RD»CH(1 ) +CH( I I ) 

GO TO 13 

12 CHORD "CH( 1 ) 

13 CONTINUE 
CSD-DC0S(1»1) 

SSO"DS IN( 1# 1 ) 

ZB«0 • 

YB-BREAK(l.l) 

YBB-BREAK(1#1) 

NC1-0 

NC2-0 

IF(NASYM.EO.O) GO TO 1370 
K2 • NC ( 1 ) 

00 1371 I»l#*2 
IF(ABS(BREAK(1#I) ).GT. 0.001) 

NC1-I-1 
1371 CONTINUE 

YB-YBREAK(1»NC1) 

YBB» YB 

NC2-NC(1)-NC1 
IF (NCI «E0 «1 ) GO TO 1370 


GO TO 1371 


EAKVS 

VS 

VS 

VS 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 


1717 

1718 

1719 

1720 

1721 

1722 

1723 

1724 

1725 

1726 

1727 

1728 

1729 

1730 

1731 

1732 

1733 

1734 

1735 

1736 

1737 

1738 

1739 

1740 

1741 

1742 

1743 

1744 

1745 

1746 

1747 

1748 

1749 

1750 

1751 

1752 

1753 

1754 

1755 

1756 

1757 

1758 

1759 
1760, 

1761 

1762 

1763 
1764’ 
1765 
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HC11-NC1-1 
00 1372 I-1,NC11 

ZB-ZB+(YBREAK(1,I)— YBREAK(l,l4’l))'*PSIN(l»I*l) 

1372 YB8-YB8+( YBREAK (1,1 )-YBREAK( 1,1+1) )*DC0S (1,1+1) 

YB-YBR EAK (1,1) 

1370 CONTINUE 
YBP-YB 
YBBP-YBB 

IF(KP.NE.l) GO TO 181 

CALL WING(AW,BW»LPANEL,1,B,LP AN 1,LAT,CS0,SS0, YBREAK, 

1DC0S.0SIN, IWING,7B,Y8,YRB, IWGLT, IV, NCI# ZZCP»KF, BREAK) 

181 CONTINUE 

XC-(XCP(1)-XLECIZ) > /CHORD 
IF(ICAH(1 ).E0.3) XC-XCP(l) 

’ IF(IALP.EO.l) GO TO 1301 
IF(ICAMB.EO.l) GO TO 1300 
YK 1- ( YC P ( 1 ) -YN ( 1 , 1 ) ) / ( YN ( 1 , 2 )-YN ( 1 , 1 ) ) 
XK1-XN(1,1)+(XN(1»2)-XN(1,1))+YKJ 
X1-(XK1**XLE (IZ ) ) /CHORD 

TSV-(XN(1,2)-XN(1,1 ) )/ (YN(1,2)-YN( 1,1) ) 

CALL ZCR(XC,YCP(1),CAM,ICAM,X1,1,1,CH0RD.DZDY,IST,TSW) 

0ZY(1)-DZ0Y 

GO TO 1301 

1300 YC-YLE(IZ) 

XC-XCP (1) 

CALL 7CDX(XC#YC,CAM,DZ0Y) 

D7Y(1 ) -DZDY 

1301 CONTINUE 

IF ( I ALP .EO. 1) ALPT-1. 

IF (IALP.NE.l) ALPT-SNALP(IZ) 

K-l 

IJ-1 

JZ-? 

N7-1 

IF (NLEF(K).EO.l) J7-1 
IF (NLEF(K) .EO.l) NZ-2 
IF (NLEF(K) .EO.O) GO TO 1231 

IF(IJ .GE.MJW1 (1, JZ,1) .AND.IJ.LE.HJV2(1,JZ,1) ) CAN-CAN+TFLP (1,1 ) 
1231 CONTINUE 

IF ( I A L P .FO. 1) CAM-0. 

AW(J1)-ALPT*CSC-CAM+CNALP(IZ) 

6U(J1 ) -0. 

WN-O. 

IF (KF .EO. 0) GO TO 1041 

IF(KP.GT.l) GO TO 30 

READ (02) (DMM(LK),LK-1,NTL) 

REAO (04) (GAM(LK),LK«1,NTL) 

DO 1043 LK-1»NTL 
KK-LPANEL+LK 


VS 1766 
VS 1767 
VS 1768 
VS 1766 
VS 1770 
VS 1771 
VS 1772 
VS 1773 
VS 1774 
VS 1775 
VS 1776 
VS 1777 
VS 177e 
VS 1776 
VS 1780 
VS 17P1 
VS 1782 
VS 1783 
VS 1784 
VS 1785 
VS 1 7P6 
VS 1707 
VS 17P8 
VS 1786 
VS 1760 
VS 1761 
VS 1792 
VS 1763 
VS 1794 
VS 1765 
VS 1766 
VS 1767 
VS 1768 
VS 1766 
VS 1800 
VS 1801 
VS 180? 
VS 1803 
VS 1804 
VS 1805 
VS 1806 
VS 1807 
VS 180P 
VS 1806 
VS 1810 
VS 1811 
VS 1812 
VS 1813 
VS 1814 
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ORIGINAL PAGE 13 
OF POOR QUALITY 


1*1 

10*1 


BVHKK ) «GAN (IK ) 

10*3 AW(KK)-DNH(tK> 

50 CONTINUE 
X0«XCP(1> 

Y0«YB8*(YCP(1)-YB)*CSD 

70«2CP <l)«-ZB+( TCP (1 1-YB)*SSD 

CALl*FUSVm <8,X0,Y0#Z0>VN»VK,GB0#0,0>CSD#SSC) 
AW(J1>-AW(J1>+VN 

IF(KP.GT.l) 60 T0 1041 
00 1*1 KK«1»LPANEL 

AW(KK)-AV(KK>+WK*WKN*CP(KK> 

CONTINUE 

IF(NAlP.GT.l) CA(l)-AWUl) 

GAM8(1>-AIPT*CS0*WN 
WR ITE ( JPT» 2 ) XC#YCP(1)>CAH 
IF (NALP.GT.l) GO TO 1B2 
IF (NAUG.EO.l) CAtlWWCJl) 

IF (NAUG.EO.l) GO TO 182 
DO 200 I»1»LWF 
GAMMA(I)«“AW(I+1)/AW(1) 

CONTINUE 

IF(KP.GT.l) GO TO 51 
WRITE (01 ) <AW( JJ)» JJ-1»LWF) 

WRITE (01) (BW( JJ)»JJ*1»LWF) 

CONTINUE 
IJ«2 

NJ-lWF-1 

U-l 
IY-1 
KCH-1 
ISTP-1 

205 CONTINUE 
KCH-IZ 

CSD«OCOS(K,IPN) 

SSO-OSIN(K#IPN) 

NN-NW(K»1) 

JZ-2 
NZ«1 

IF(NLEF(K).E0.1) JZ-1 
IF (NL EF (K ) • EO .1 ) NZ-2 

riM ^ulNG ( AW* BW» LPANE L» IJ»B»LPAN1»LAT*CSD»$SD»YRREAK» 

lDC0S»DSIN»IWING#Z8»YB>YBBjIWGlT#IV*NCl»ZZCP»KF*BREAKl 

183 CONTINUE 

IF (NW ( K » 2 ) » EO .0 ) GO TO 1* 

IF(K.EO.l) II-KCH*NS(K> 

IF (K • GT.l ) II»KCH*NS(K)-NS(K-1J 
C H OR 0 « C H.LK C H ) +C_H ( 1 1 ) 


200 

18? 


51 


VS 1815 
VS 1816 
VS 1817 
VS 1818 
VS 1810 
VS 1820 
VS 1821 


VS 1822 


VS 

1823 

vs 

182* 

VS 

1825 

vs 

1826 

vs 

1827 

vs 

1828 

vs 

1820 

vs 

1830 

vs 

1831 

vs 

1832 

vs 

1833 

vs 

183* 

vs 

1835 

vs 

1836 

vs 

1837 

vs 

1838 

vs 

1830 

vs 

18*0 

vs 

18*1 

vs 

18*2 

vs 

18*3 

vs 

18** 

vs 

18*5 

vs 

18*6 

vs 

18*7 

vs 

18*8 

vs 

10*0 

vs 

1860 

vs 

1851 

vs 

1852 

vs 

1853 

vs 

109* 

vs 

1855 

vs 

1856 

vs 

1857 

vs 

185e 


VS 1850 
VS I860 
VS 1861 
VS 1862 
VS 1863 
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GO TO 16 

VS 

1864 

14 

CHORO-CH(KCH) 

VS 

1865 

16 

CONTINUE 

VS 

1866' 


XC-(XCP(IJ)-XLE(IZ))/CHORD 

VS 

1867 


IF (IC AM(K ) • E0.3 ) XC-XCP(IJ) 

VS 

1868 


IF(I$TP.GT.IVING(K).AND.lVlNG(K).NE.O) GO TO 1013 

VS 

I860 


LCAM-0 

VS 

1870 


IF ( I ALP .EO. 1) GO TO 1025 

VS 

1671 


IF(ICAM(K).E0.2) GO TO 1305 

VS 

1872 


NP-IJ 

VS 

1873 

1015 

YK1-(YCP(NP)-YN(NP,1) ) / ( YN(NP,2)-YN(NP,1>) 

vs 

1874 


XK1«XN(NP#1>+(XN(NP,2)-XN(NP,1))*YK1 

vs 

1875 


Xl»( XK1-XLE ( 12 ) ) /CHORD 

vs 

1876 


TSV-(XN(NP.2)-XN(NP»1) )/( YN(NP,2)-YN(NP»1)> 

vs 

1877 


CALL ZCR(XC»YCP(NP)»CAN1»ICAM»X1»K» 1 .CHORD #D 70 Y* 1ST # TSV ) 

vs 

1878 


IF(LCAM.EO.O) DZY(IJ)-0?PY 

vs 

1870 


IF (LCAM .EO. 1) GO TO 1035 

vs 

1880 


CAM-CAM1 

vs 

1881 


GO TO 1020 

vs 

1882 

1025 

CAM-0. 

vs 

1883 


GO TO 10 

vs 

1884 

1305 

YC-YLE (IZ) 

vs 

1885 


XC-XCP (IJ) 

vs 

1886 


CALL ZCDX(XC»YC#CAH,DZDY) 

vs 

1887 


DZY< I J ) -070 Y 

vs 

1888 

1020 

CONTINUE 

vs 

18 89 


lF(IJ.GE.hJWl(KtJ7*LL).AND.IJ.LE.MJW2(K»JZ»LLn GO TO 16 

vs 

1890 


GO TO 17 

vs 

1891 

16 

IF(LL.EO.NAL(K)> GO TO 10 

vs 

1092 


CAM1«TFLP(K,LL)*CAM 

vs 

1893 


IF (NLEF(K) .EO.l.AND.IJ.EO.MM) C AN1-0. 5*TFLP (K# LL >*C AM 

vs 

1894 


CAM-CAM1 

vs 

1895 


GO TO 10 

vs 

1896 

17 

IF (NW ( K» 2) * EO.O) GO TO 10 

vs 

1897 


IFCNC(K).GT.l) GO TO 22 

vs 

1898 


IF (I J . EO.MM.AND.NL EF(K) .EO.O) CAM-CAM*0.5*TFLP(K,LL > 

vs 

1899 


GO TO 10 

vs 

1900 

22 

CONTINUE 

vs 

1901 


IF(IJ.GT.LPAN1(K).AND.IJ.LE.LPN(K) ) GO TO 10 

vs 

190? 


IF(IJ.NE.MH) GO TO 10 

vs 

1903 


KH-1 

vs 

1904 


IFCK.GT.l) KH-NS (K— 1 ) +1 

vs 

1905 


NCM-TJ+(NS(K)-ISTP)*NW(K,l)+(ISTP-KH)*NW(K»2)4l 

vs 

1906 

C 

NR ITE ( JPT» 3 ) IJ#NCM,IZ 

vs 

1907 


XC- (XCP(NCM) -XL E ( IZ )) /CHORD 

vs 

1908 


IF CIC AH< K 1 .E0.3) XC-XCP(NCM) 

vs 

1909 


IF (IC AM(K) . E0.2 ) GO TO 1310 

vs 

1910 


NP-NCM 

vs 

1911 


LCAM-1 

vs 

.1912 
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% 


60 TO 1015 
1310 XC-XCP<NCM) 

YC-YLEdZ) 

CUL 7C0X<XC*YC»CAN1»DZDY) 

1035 CONTINUE 

CAM-0. 5MCAM+CAH1) 

IF(IJ.GE.MJWl(K,NZ,LL).AND.IJ.LE.MJW2(K,NZ#Ltn GO TO 23 
GO TO 19 

23 IF (LL.EO. NAURU GO TO 19 

IFdJ.EO.MM.AND.NLEFlIO.EO.O) CAM-CAM+0.5*TFIP<K,LU 
19 CONTINUE 

IF (IALP.NE.1 ) ALPT-SNALPdSTP) 

IF ( I ALP .EO. 1) ALPT-1. 

GO TO 1019 

1013 ALPT-SNALPdSTP) 

IF(IALP.EO.l) ALPT-1. 

CAM-0. 

IF (I ALP.EO.l ) GO TO 1019 
IF(ICAMTm.EO.O) GO TO 1331 
NP-IJ 
NCAM-0 

1016 YK1-(YCP(NP)-YN(NP#1))/(YN(NP,2)-YN(NP,1>) 
XK1-XN(NP.1)+(XN(NP»2)-XN(NP#1) )*YK1 

XI- ( XK1— XL E ( I Z ) J/CHOPO 
ICT-ICAMT(K) 

TSV-(XN(NP,2)-XN(NP,1) ) / t YN t NP, 2 ) -YN < NP, 1 )> 

CALL ZCP(XC,YCP(NP)»ZR»ICAN»X1»K» I C T# CHORD. 070 Y# IST.TSW) 
IF (NC AM.EO.O) DZY(IJ)-DZDY 
IF(NCAM.EO.l) GO TO 1017 
CAM-ZR 

IF(NV(K,2>.EO.O> GO TO 1331 
IFdJ.GT.lPANl(K) ) GO TO 1331 
IF(IJ.NE.MM) GO TO 1331 
KH-1 

lF(K.GT.l) KH-NS ( K—l ) +1 

NCM-IJMNS(K)-ISTP)*NV(K,1)*(ISTP-KH)PNWCK,2)*1 
XC-(XCP(NCM)-XLE(IZ) ) /CHORD 
IF(ICAM(K) .E0.3) XC-XCPCNCM) 

NP-NCM 
NCAM-1 
GO TO 1016 

1017 CAM1-ZR 

CAM-0. 5*(CAM+CAM1) 

1331 CONTINUE 

IF (Nl EF (K ) , EQ .1 ) GO TO 1018 

IFdJ.GE.MJWKK.JZ.Ll ) . ANO.IJ.LE.M JW2CK, JZ.Lt) ) GO TO 90 
IF(IJ.GE.MJW1(K>NZ*LL).AND.IJ.LE.MJW2(K>NZ>LU) GO TO 91 
GO TO 1019 
91 CONTINUE 


VS 1913 
VS 1919 
VS 1915 
VS 1916 
VS 1917 
VS 1918 
VS 1919 
VS 1920 
VS 1921 
VS 1922 
VS 1923 
VS 1929 
VS 1925 
VS 1926 
VS 1927 
VS 1928 
VS 1929 
VS 1930 
VS 1931 
VS 1932 
VS 1933 
VS 1939 
VS 1935 
VS 1936 
VS 1937 
VS 1938 
VS 1939 
VS 1990 
VS 1991 
VS 1992 
VS 1993 
VS 1999 
VS 1995 
VS 1996 
VS 1997 
VS 1998 
VS 1999 
VS 1950 
VS 1951 
VS 1952 
VS 1953 
VS 1959 
VS 1955 
VS 195<w 
VS 1957 
VS 1958 
VS 1959. 
VS 1960 
VS 1961 
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CAH«CAM+0»5*TFLP(K»Ll ) 


40 

ioie 

1014 


CAI*-CAH*TFU><K,ll> 


1044 

52 


142 

1042 


53 


184 


1117 

1118 


IFUJ.EO.KM) 

60 TO 1014 
CONTINUE 

IFdJ.GT.LPANl(K)) 

60 TO 1014 

IF(IJ .GT.LPANl(K) 1 GO TO 1014 

IF (I J 4 EO.PH) CAH«CAH+0.5*TFlP(K»ll ) 

CONTINUE 

BOUNOARY CONDITION 
AW(J1)»ALPT*CSD-CAM*CNALP(ISTP) 

GANB(IJ)*ALPT*CS0 
BW(J1 )-0. 

WN*0 • 

IF (KF .EQ. 0) GO TO 1042 

IF(KP.GT.l) GO TO 52 

READ (02) (DHM(LK)»LK-1»NTL) 

READ (04) (GAMLK)#LK-1#NTL) 

00 1044 LK*1»NTL 

kk-lpaneluk 

BV(KK)-C-AMLK) 

AV(KK )-OMMLK) 

CONTINUE 

XO-XCP(IJ) 

YO-YBB+(YCP(IJ)-YB)*CSO 
70«ZCP(IJ)«-Z8+(YCP( IJ )-YB )*SSO 
WK *0 • 

CALL*FUSVOL (B»XO» Y0» Z0» WN # WK » GBO> 0 »0 »C SO#SSD ) 

AW(J1)-AW(J1)+WN 

GAMB(IJ)-GAM8(IJ)+WN 

IF(KP.GT.l) GO TO 1042 
DO 142 KK«1,LPANEL 

AW(KK )-AW(KK )*WK*WKN*CP(KK) 

CONTINUE 

IF(KP.GT.l) GO TO 53 

WRITE (01) (AW( JJ)»JJ-1#LWF) 

WRITE (01) (BW(JJ),JJ-1»IWF) 

WR IT E ( J PT» 2 ) XC*AW(J1)»ALPT»CSD»CAP»CNALP(ISTP) 

IF(NALP.GT.l .OP.NAUG.EO.l) C A ( I J ) *AW ( J1 ) 

IF (NALP.GT.l ) GO TO 184 
IF (NAUG.EO.l ) GO TO 184 
CALL VNSEON ( N J » I J » AW» GAKMA »C A ) 

IF*iIi J • GE»LPAN1 (K)»AND»IJ*LT»LPN(K)) GO TO 1117 
IF(IJ.E0.NJW2(K»1#LL) ) LL-LL+1 
60 TO 1118 
NN"NW ( K» 2 ) 

IF(IJ .EO.HJV2(K»2#LL) ) ll-ll+l 
CONTINUE 


I 


VS 

1962 

vs 

1963 

vs 

1964 

vs 

1965 

vs 

1966 

vs 

1967 

vs 

1968 

vs 

1969 

vs 

1970 

vs 

1971 

vs 

1972 

vs 

1973 

vs 

1974 

vs 

1975 

vs 

1976 

vs 

1977 

vs 

1978 

vs 

1979 

vs 

I960 

vs 

1981 

vs 

1982 

vs 

1983 

vs 

1984 

vs 

1985 

vs 

1986 

vs 

1987 


vs 

1988 

vs 

1989 

vs 

1990 

vs 

1991 

vs 

1992 

vs 

1993 

vs 

1994 

vs 

1995 

vs 

1996 

vs 

1997 

vs 

199P 

vs 

1999 

vs 

2000 

vs 

2001 

vs 

2002 

vs 

2003 

vs 

2004 

vs 

2005 

vs 

2006 

vs 

2007 

vs 

2008 

vs 

2009 

vs 

2010 
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IFdJ.EO.lPN(K).ANO.IJ.lT.LPANEl> NN*NVCK4l#l> 

IF (IJ .IT. HH) 60 TO 25 
IF(NV(K»21 .EO.O) GO TO 1220 
IF<IJ.LE.LPAN1(K) ) GO TO 1221 

1220 170*17 + 1 
XU(IY)*$SD 
XTT( IY ) *C SO 
IY-IY+1 

1221 CONTINUE 
IZ-IZ+1 
MH-HH+NN 
KCH-KCH+1 
ISTP*ISTP+1 

IFdWING(K).NE.O.AND.ISTP.EO.dWING(KUin GO TO 1113 
IF<IJ.E0.1PAN1(K).0R.IJ.E0.1PN(K)) GO TO 1113 
IF(ISTP.F0.(N$<K)+1)) GO TO 1116 
IF(YLE(IZ).LT.YBREAK(K,IPN>1 GO TO 25 

1113 CONTINUE 
NI-0 

IF (NAS YN« FO.l .AND. IPN.LT.NC1) NI»1 
IF(NI.EO.l) IPN-IPN+1 

Z8*7B«-(YBPEAK(K»IPNl— YB)*DSIN(K»IPN) 

YBB-YBB-M YBREAK ( K , I PN )-YB ) *OCOS ( K * IPN) 
YB-YBREAKCK.IPN) 

IF(IVlNG(K).NE.O.AND.ISTP.EO.(IUING(K)+m GO TO 1114 
IF (I J . E0.LPAN1 (K ) .OR . I J .EO.LPN(K ) ) GO TO 1116 
GO TO 1115 

1114 IF (I WGLT ( K ) . EQ • 1 ) GO TO 1115 
1116 ZB*0. 

YB*8RE AK ( K » 1 ) 

YBR*BREAK(K,1) 

IF(NASYM.EQ.1.AND.IJ.E0.1PAN1(K>) YB-YBP 
IF(NA$YP.E0.1.AND.IJ.E0.1PAN1(K)) YBB-YBBP 
IFdJ.EO.tPN(K) .AN0.K.LT.6) YB*BRE AK ( K+l »1 ) 

IF (IJ. EQ.LPN(K) .AND.K .IT. 6) YBB -BREAK (K*l# 1) 
IFdJ.EO.LPN(K) ) GO TO 1115 
IFdSTP.EO. (NS(K)+1)) GO TO 1115 
IF(IVGLT(K).NE.2) GO TO 1115 
ZB "YBREAK (K»NC (K)— 2)*DSIN(K»1) 

YBB*YBRFAK(K»NC (K)-2)*0C0S(K#1) 

YB*YBREAK(K,NC(K)-2> 

1115 CONTINUE 
IF(NI.NE.l) IPN-IPN+1 

IF(IJ.E0.LPAN1(K).0R.IJ.E0.1PN(K)) IPN-1 
25 KH*0 

IFdJ.EO.LPANl(K).ANO.IJ.NE.LPN(Kn KH*1 
IF(KH.EO.l.AND.K.EQ.l) IZ*IZ-NS(K) 

IF ( KH.E 0.1. AND.K. GT.l ) I Z *1 Z-NS ( K ) +NS ( K-l 1 
IFdJ.EQ.LPN(K) .AND.NV(K,2).NE.0> KH*2 


VS 2011 
VS 2012 
VS 2013 
VS 2014 
VS 2015 
VS 2016 
VS 2017 
VS 2018 
VS 2010 
VS 2020 
VS 2021 
VS 2022 
VS 2023 
VS 2024 
VS 2025 
VS 2026 
VS 2027 
VS 2028 
VS 2029 
VS 2030 
VS 2031 
VS 203? 
VS 2033 
VS 2034 
VS 2035 
VS 2036 
VS 2037 
VS 2038 
VS 2039 
VS 2040 ! 
VS 2041 
VS 2042 
VS 2043 
VS 2044 
VS 2045 
VS 2046 
VS 2047 
VS 204P 
VS 2049 
VS 2050 
VS 2051 
VS 2052 
VS 2053 
VS 2054: 
VS 2055 
VS 2056 

vs 2057, 

VS 2058 
VS 2059 
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J J : IS: : 1?: 1 1 

IF(IJ.EQ.LPANKK)) LL-1 

I J-I J+l 

IF(IJ»EO» (LPN (K ) + l) ) K ’*„ 1 , n « 
IF (IJ »LE. LPANED GO TO 205 
IF (KF .EO. 0) GO TO 207 
00 206 KJ-1»NTL 

GAMB(LPANEL*KJ)-0. 

CA(LPANEL+KJ)-0. 

IF(KP.GT.l) GO TO 26 
REAO (02) (AW(KK),KK-1»LVF) 
<BW(KK)#KK»1#LWF) 


26 


NF) GO TO 91 


RFL 

RFl 


*XS/SORT(XS*XS+R*PF (KI)*9F(KI)> 


1 A3 
91 


27 


208 

206 

207 


REAO (04) 

CONTINUE 
AW(J1 ) *0. 

8W( J1 ) "0. 

IF (KJ »GT. 

KI-KJ 

XS-XCF ( K I J-XTEF 

XB-XCF(KI)-XLEF 

IF (KJ .EO. NF) 

IF (KJ «NE. NF) 

rF^:;i:^/S0RT(XB*XB.B*RF(KI)*PF(KI1)) 

r^ssiMEsrmK^i-Moi.Fio, «,.•«. 

AW(J1)*APT 
CA(LPANEl+KJ)-APT 
GANB (LPANEL+KJ)“APT 
IF(KP.GT.l) GO TO 27 
00 143 KK«1» LPANEL 

AW (KK ) «AW(KK )+WK*CP (KK ) 

CONTINUE , 

WRITE (01) (AW(JJ)»JJ* 1,LWF | 

WRITE (01) (BW( JJ)»JJ-1»LVF) 

CONTINUE 

WRITE(JPT»2) AW(J1) 

IF (NAIP .GT. 1) GO TO 208 
IF (NAUG .EO. 1) 60 TO ^ fi) 

CALL VMSEON (N J » I J » A W# G AMP A» C A ) 

N J»N J-l 

sfttibs-uf of .ouhda.y cdkoitiobs 


VS 2060 
VS 2061 
VS 2062 
vs 2063 

vs 2064 
VS 2065 


VS 

2066 

vs 

2067 

vs 

2068 

vs 

2069 

vs 

2070 

vs 

2071 

vs 

2072 

vs 

2073 

vs 

2074 

vs 

2075 

vs 

2076 

vs 

2077 

vs 

2078 

vs 

2079 

vs 

2080 

vs 

2081 

vs 

2082 

vs 

2083 

vs 

2064 

vs 

2085 

vs 

2086 

vs 

2087 

vs 

2088 

vs 

2089 


VS 2090 
VS 2091 
VS 2092i 
VS 2093 
VS 2094 
VS 2095 
VS 2096 
VS 2097 
VS 2098 
VS 2099 
VS 2100 
VS 2101 
VS 2102 
VS 2103: 
VS 2104 
VS 2105 
VS 2106 
VS 2107 
VS 2108 
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ORIGINAL PA?" H 
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C WRITE ( JPT, 2 ) (CH(I),I-1,NCS) VS 

C WRITE ( JPT, 2 1 ( XLE ( X ) , I «1,NCS) VS 

C WRITE < JPT» 2 ) (XLL(I)f XTT(I),I«1»NCS) VS 

REWIHO 02 VS 

00 103 I«1,LWF VS 

105 OMMm-GAMMA(I) VS 

IF<KP.E0.1) CALL INVN(D0#CP,AW»LAT#NPP#IWF#IP*NAUG1 VS 

00 106 I-1,LWF VS 

106 GANNA ( I 1 «DMM ( I ) VS 

REWIND 02 VS 

IF(NAUG.EO.l) GO TO 003 VS 

IF(NALP.EQ.l) GO TO 185 VS 

003 CONTINUE VS 

00 186 I-1,LVF VS 

GANHA(I)-0. VS 

GAMP(I)-0. VS 

READ ( 02 ) <AW<K),K«1,LWF) VS 

00 186 J»1,LWF VS 

GAHP( I)«GANP(I )~AW( J)*GAHB(J) VS 

186 GAMMA(I)«GANHA(I)-AW(J)*CA(J) VS 

185 CONTINUE VS 

C VRITE<JPT,7)<GANMAd>,I-l»LVF> VS 

00 115 I“1,LWF VS 

IF(NALP.EO.l) GAMPdl-GANMAU) VS 

115 CP(I 1-GAMMA (I ) VS 

CPAUG ( 200 1 -LWF VS 

RETURN VS 

END VS 

C FORTRAN NLSTIN VS 

SUBROUTINE IN VN ( 00, CP , AW, L AT,NAL P » N* IP.NAUG ) VS 

C TO INVERT THE DOWNWASH COEFF. MATRIX VS 

DIMENSION IPIV0T(200) » I VK ( *00 ) VS 

C ABOVE REOUIRED FOR THE NASA/LARC POUTINE MATINV. VS 

DIMENSION DOdP»IP),CPd>»AVd) VS 

VS 

SETOIM IS TO SET UP ARRAY TABLE FOR MATRIX INVERSION, AND MAY NOT VS 
BE NEEDED IF OTHER INVFRSION ROUTINES ARE USED. VS 

VS 

IA-IP VS 

C CALL SETDIN(DO»IA,IA) VS 

IF(NAUG.EO.l) GO TO 2 VS 

IF(NALP.EQ.l) GO TO 10 VS 

2 CONTINUE VS 

REWIND 01 VS 

00 1 I *1, N VS 

REAO(Ol) (AV(K),K-1,N> VS 

READ ( 01 1 (CP(K)»K-1#N> VS 

00 1 J “1, N VS 

1 DQU»_4.llAV< J> JtS. 


2100 

2110 

2111 

2112 

2113 

2114 

2115 

2116 

2117 

2118 
2110 
2120 
2121 
2122 

2123 

2124 

2125 

2126 

2127 

2128 
2120 

2130 

2131 

2132 

2133 

2134 

2135 

2136 

2137 

2138 
2130 

2140 

2141 

2142 

2143 

2144 

2145 

2146 

2147 

2148 
2140 

2150 

2151 

2152 

2153 

2154 

2155 

2156 
<2157 


133 



ORIGINAL PAGE IS 

OF, POOR QUALITY 


DO IS THE MATRIX TO BE INVERTED. AW IS A WORKING ARRAY. THE y$ 

INVEPTEO MATRIX IS RETURNED IN 00. v$ 

VS 

CALL HEMINV(DO#N* AW) ...... T6TWftT tuki VS 

CALL HATINV(IA»N#D0»0»AV#1»DETERH»I$CALE#IRIV0T#I 

IF (DETERM. HE .0. ) GO TO 102 VS 

101 JiSlTiJSlKUl.. N.TRIT. CANNOT .«.«», STOP IN !«»«*> »| 

STOP VS 

102 CONTINUE VS 

DO 5 I-l.N VS 

5 WRITE ( 02 ) (DO ( I » K ) #K*1 »N ) y§ 

10 IF(LAT.NF.l) GO TO 25 vs 

REW1N0 01 VS 

DO 15 I-l.N VS 

READ ( 01 ) ( AW (K ) »K -1#N ) y$ 

READ ( 01 ) (CP(K) »K«1*N) vs 

DO 15 J*1»N VS 

15 00(1* J )-CP(J> VS 

Cm MATINVt I A*N*00»0» AW* 1»0ETERM# ISCALE* IPIVOT* IWK ) VS 

IF (DETERM. NE .0. ) GO TO 103 v$ 

PRINT 101 VS 

STOP VS 

103 CONTINUE VS 

00 20 I “1 *N y$ 

20 WRITE(02) ( 00 ( I * K ) * K-l* N ) yj 

25 RETURN VS 

END VS 

FORTRAN NtSTIN , 1T .. VK VS 

SUBROUTINE WING C AW#BW#LPANEL» I .BB # LP AN1.L AT.CS »SS, YK V5 

1*DC»DS»IWING»2B»YB*YBB*IWGLT#IV#NC1»7ZCP#KF*BRFAK * 

TO CALCULATE OOWNVASH COFF F. J? T ¥}? e 5 W |V| T ° WI VS 

DIMENSION AW(1) *LPAN1 (1) * IWING(l) » IUGLT(1)*IV(.) VJ 

DIMENSION BW(l)»ZZCP(l)#WV(A)»VW(A)»BRFAK(ft»l> v $ 

SKSX'EeIM 

ivTmnm pc t # vn CH ( 100 ) t X V ( 200) » YVt 200 ) » SN ( bt 1 5 # 2 ) * XN ( 200* 2) t YK C 2 VS 

COMMON /AERO/ AM»B»CL(50)»CT(50)»C0(j0)»CM(50) njW(6.5)» V* 

COMMON /CONST/ NC S» NC W# Ml ( 6* 5 ) » M JW 1 ( 6* 2» 5) #MJV2 ( 6# 2 , 5 > » N4W ( 6» 5 ) ^ 

^CONHON* /EVTRA/ LPN(fcl»NS(fcl»ICNLT(M»ITWST^6t*lST(M»NRR0,HPI6HT# VS 

1 ATT# NC (6)*NWING(6)#IP0S(6)»IALP»0UMT(3*6#15)»HALFBH(fe) V5 

LG-1 VS 

IF (NGRO .EO. 1) LG-2 y. 

NASYM-YC0N(5O) vs 

wim-o. 
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vim-o. 

IPN-1 

ip-1 

Bl-BB 

IZ-1 

IV-1 

IFF-1 

K-l 

NN-NV ( K» I ) 

7A-0. 

YA-BREAK (1,1) 

YAA-BREAK (1,1) 

IF(NASYH.EQ.O) 60 TO AO 
YA-YK ( 1,NC1 ) 

YAA-YA 

IF(NCl.EO.l) 60 TO AO 

HC11-NC1-1 

00 A1 J-1»NC11 

7A-7A+(YK (K, J)-YK(K, J+l) )*DS(K, J+l ) 

A1 YAA-YAA-M YK (K, J )-YK (K, J+1 ) )*DC (K, J + l ) 

YA-YK (K,l) 

AO CONTINUE 
YAP-YA 
YAAP-YAA 

00 16 J-l# LPANEL 
Nl-NV ( K#1 ) 

COSO-OC (K,IPN) 

SINO-OS (K » IPN ) 

Vl(2>-0. 

Wl(?)-0. 

V(2)«0. 

V(7)-0. 

vvm-o. 

WV ( A ) -0, 

VV(3)-0. 

VV(A)-0. 

MI-J-IFF+1 

ISN-1 

IF (J.6T. LPANHK).AND.J.LE.LPN(K) > ISN-2 
IF(J.GT.LPAN1(K).AND.J.LE.IPN(K)> C-0 TO 20 
GO TO 21 
20 NL«NW(K,2) 

21 CONTINUE 
FN-NL 
NK-NL 

IF(J.GE.LPAN1(K).AND.J.LT.LPN(K)) NK«NW(K,2) 
IF < J. E 0. L PN (K ). AND. J.LT.L PANEL) NK-NW(K*1,1) 
X1-XN( J,1)-XCP(I> 

X2-XN(J,2)— XCP(I) 


VS 2207 
VS 220P 
VS 2209 
VS 2210 
VS 2211 
VS 2212 
VS 2213 
VS 221 A 
VS 2215 
VS 2216 
VS 2217 
VS 2218 
VS 2219 
VS 2220 
VS 2221 
VS 2222 
VS 2223 
VS 222A 
VS 2225 
VS 2226 
VS 2227 
VS 2228 
VS 2229 
VS 2230 
VS 2231 
VS 2232 
VS 2233 
VS 223A 
VS 2235 
VS 2236 
VS 2237 
VS 2230 
VS 2239 
VS 22AC 
VS 22AI 
VS 22A2 
VS 22A3 
VS 22 A* 
VS 22A5 
v$ 22 A6 
VS 22A7 
VS 22*8 
VS 22*9 
VS 2250 
VS 2 2 0 X 
VS 225? 
VS 2253 
VS 22 5 A 
VS 2255 
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X12-XN(J#2)-XN(J#1) 


VS 

vs 

2256 

2257 

ISN-2 


vs 

2258 

IF (IV(K).EO.l) ISH-1 


vs 

2259 

IF(NASYM.EO.l) ISM-1 


vs 

2260 

00 15 11*1* ISN 


vs 

2261 

IF (II.EO.l) SO TO 2 


vs 

226? 

N*1 


vs 

2263 

60 TO 3 


vs 

226* 

2 N*2 


vs 

2265 

3 CONTINUE 


vs 

2266 

00 15 KK*1#L6 


vs 

2267 

KIG-II+KK-l 


vs 

2268 

IF <KK .EG. 2) KIG-II+KK 

31 

vs 

2269 

IF(A8S(CS-C0SD).GT. 0.001) GO TO 

vs 

2270 

IF(ABS (SS-SIND) .GT. 0.001) GO TO 

31 

vs 

2271 

IF (NC (K).GT.l) GO TO 31 

GO TO 30 

vs 

227? 

IF (II .EO. 1 .AND. KK .EO. 1) 

vs 

2273 

31 CONTINUE 


vs 

227* 

PS -SI NO 


vs 

2275 

PC *COSD 


vs 

2276 

OS-SS 


vs 

2277 

oc-cs 


vs 

2278 

GO TO 35 


vs 

2279 

30 PS-0. 


vs 

2260 

PC-1. 


vs 

2261 

OS-O. 


vs 

2282 

OC-1 • 


vs 

2263 

35 CONTINUE 


vs 

228* 

Y12-YN(J,2)-YN( J*l) 


vs 

2285 

Z12-ZN(J»2)-ZNU,1)+Y12*PS 


vs 

2286 


Y12' 


VS 

VS 

VS 

VS 

VS 


in 


19 


YC-(“1.)**N*(YBB*(YCP(I) _ YB)*0C) 

Y1-YAA+(YN(J»1)-YA)*PC-YC 
Y2-YAA*(YN(J,2)-YA)*PC-YC 
XYK-X1*Y12-Y1*X12 

}c--r.MZCMX)*fS*I?CMn-VB)*0S*HEI6HT)*2C»in*ZB*(YCPCn-VB»*0S VS 
FCON-1. 

GO TO 19 

ZC-ICPd)dB*(YCPd )-YB)*OS 


7ZCP ( I ) • ZC 
FCON-O. 

CONTINUE . „ 

Z1-ZN< J»1)-7C+ZAMYN(J*1)-YA)*PS 
Z2-ZN< J*2)-ZC+ZA+(YN( J,2)-YA)*PS 
XZJ*X1*712-71*X12 
UCOH— Z1*Y12*(-ATT)*FC0N 
YZI-Y1*712-Z1*Y12 

A181-XYK*XYK+X7J*XZJ+B1*YZI*YZI 


VS 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 


22P7 
22f B! 

2289 

2290 

2291 

2292 

2293 
229* 

2295 

2296 

2297 

2298 
2299t 

2300 

2301 
2302, 
2303 
230* 
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R181«S0RT(Xl*Xl4Bl*Yl*Yl4Bl*Zl*Zl> VS 

R2B1« SORT (X 2* X24«J1*Y2*Y24 81*22* Z2) VS 

UUB1“(X2*X124B1*Y2*Y12+B1*Z2*Z12)/R281”(X1*X124B1*Y1*Y12481*Z1*Z12VS 
D/RIBI VS 

G1B1-(1.-X1/R181)/(Y1*Y1+71*Z1) VS 

G281«(1«-X2/R2P1)/(Y2*Y2+Z2*Z?) VS 

F1»UUB1*(UC0M4XYK)/ALB1 VS 

F2«-Y2*G2B14Y1*G1B1 VS 

F3 — X7J + UUB1/A181 VS 

F4«Z2*G281-Z1*G181 VS 

CKF»CH(IZ)*$N(K»MI» ISN)/(8.*FN) VS 

VV(KIG)*Y1*G1B1+0C*CKF VS 

VW(KIG)*— 71*6181* 0$*CKF VS 

IF (IP .EO. 1 .AND. KF .NE. 0) F2— Y2*G2B1 VS 

IF (IP .EO. 1 .AND. KF .NE. 0) F4»Z2*G2B1 VS 

IF (KK .EO. 2) GO TO 25 VS 

V(II )-(Fl4F2)*CM(IZ)*$N(K»HI»ISN)/(8.*FN) VS 

V(IT)-(F3*F*)*CH(IZ)*SN(K»MI,ISN)/(e.*FN) VS 

v(in-u(ii)*oc vs 

v(in-v(ii)*os vs 

GO TO 15 VS 

25 W1(II)«(F1+F2)*CH(IZ)*SN(K»MI#ISN)/(8.*FN) VS 

Vl(II)«(F3*F4)*CH(IZ)*SNtK»MI#ISN) M8.*FN) VS 

V1(II)»W1(II)*CC VS 

vi(in-vi(in*as vs 

15 CONTINUE VS 

AW ( J ) »W ( 1 ) 4W ( 2 )—Wl ( 1 ) — VI ( 2 )—( V ( 1 )-V ( 2 ) *V1 ( 1 )— VI ( 2 ) ) VS 

BV(J)«V(1)-V(2)-W1(1)+V1(2)-(V(1)*V(2)*V1(1)4V1(2>) VS 

KVW-0 vs 

IF(IP.EO.l.ANO.KF.NE.O) KVV1 VS 

IF (KVV.EO.l .ANO.IV(K) .EO.O) 8V(J)*BV(J) ♦VV(1 l-UVC 2 )-VV ( 3 ) 4WV(4 ) VS 
1-(VW(1 )4VV(2)+VW(3)4VV(^) ) VS 

IF(J.LT.NN) GO TO 17 VS 

IF(J.EO.LPANEL) GO TO 16 VS 

IP-IP41 VS 

IZ-I7+1 VS 

IV-IV+1 VS 

IFF-NN+1 VS 

NN-NN+NK VS 

IF(IWING(K) .NE.O . AND . I W. EO . ( I W ING (K ) ♦! II GO TO 14 VS 

IFU.E0.1PAN1 (K ) .OR .J.FO.LPN(K) ) GO TO 32 VS 

IF(YLE(IZ).LT.YK(K#IPN>) GO TO 17 VS 

14 CONTINUE VS 

NJ«0 VS 

IF(NASYM.E0.1. AND.IPN.LT. NCI) NJ-1 VS 

IF(NJ.EO.l) IPN-IPN41 VS 

ZA«ZA4(YK(K,IPN)-YA)*DS(K»IPN) VS 

YAA>YAA4( YK (K* IPN )-YA )*DC (K»IPN) VS 

YA«YK ( K»I PN ) VS 


2305 

2306 

2307 

2308 
2300 

2310 

2311 

2312 

2313 

2314 

2315 

2316 

2317 

2318 
2310 

2320 

2321 

2322 

2323 

2324 

2325 

2326 

2327 

2328 
2320 

2330 

2331 

2332 

2333 

2334 

2335 

2336 

2337 

2338 
2330 

2340 

2341 

2342 

2343 

2344 

2345 

2346 

2347 

2348 
2340 

2350 

2351 

2352 

2353 
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22 

32 


23 


17 


16 


IF HWIN6(K).NE.0.ANP.IW.F0,aWING(K)*l>) 60 TO 22 

GO TO 23 

IF < I WGLT (K ) • EO .1 ) 60 TO 23 
ZA-O. 

VA-8REAMK#1) 

imnasyh^eoIiIano.j.eo.lpaniik)) ya “ YAR 

IF(NA$YM.E0.1 .ANO.J.EQ.LPANKK) ) YA ** Y ? 

IF(J.EO.LPN(K J.AN0.K.LT.6) YA-, ' R ^ AI * 1 J1*l' l J. 

If(J.EO.LPN(K).ANO.K.LT.6) YAA-8REAK(K*1,1) 

IFtJ.EO.LPANlOO.OR.J.EO.LPNtK)) 60 TO 23 
IF ( I WGLT (K ) »NE • 2 ) GO TO 23 

2A-YK(K#NC(K)-2)*DS(K»1) 

YAA-YK(K#NC(K)-2)*0C(K,1> 

YA-YK(K#NC(K)-2) 

CONTINUE 

IF(NJ.NE.l) IPN-IPN+1 
IF <J.E0.LPAN1(K).0R.J.E0.LPN(K)> 

KH *0 

IFU.FO.IPANKK ).ANO.J.NE.lPN<K>) 
IF(KH.EO.l.ANO.K.EO.l) IV-IV-NS(K) 
IF(KH.EO.l.ANO.K.GT.l) 

IF(J.FO.lPANltK)) IP-1 
IF(J.EQ.LPN<K) ) IP-1 
IF < J .EO.IPN(K) ) K-K+l 
RETURN 
END 

FORTRAN NLSTIN 

S"2K”«r5^KS“coS};”GS ?5sU». e «» TO «»« 


vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 


235* 

2355 

2356 

2357 

2358 

2359 

2360 

2361 

2362 

2363 
236* 

2365 

2366 

2367 

2368 

2369 

2370 


IPN-1 


KH-1 


I V "IW-NS ( K ) ♦NS(K-l) 


COMMON /CONST / 


‘SmSot IPNt 61 »HS 1 6)#ICHtO ( 6) »ITWST(6) *IST(6WN6dO»HEI6 H T» 

1ATT»NC(6)#NVING(6)#1P0S(6)»IAIP#0UNT(3#6#15)»HALFBH(6) 

1 » ICANT 1 6) 

OATA V /*♦ 0./ 

PI-3. 1*159265 
REWIND 03 
LG-1 

IF (NGRO .EO. 1) LG-2 
_ NA5YM-YC0N(50) 


VS 

2371 

VS 

2372 

vs 

2373 

vs 

237* 

vs 

2375 

vs 

237* 

vs 

2377 

vs 

2378 

vs 

2379 

vs 

2380 

vs 

2381 

vs 

2382 

vs 

2383 

vs 

238* 

vs 

2385 

vs 

2386 

»vs 

2387 

2VS 

2388 

)VS 

2389 

vs 

2390 

vs 

2391 

vs 

2392 

vs 

2393 

vs 

239* 

1 vs 

2395 

vs 

2396 

vs 

2397 

vs 

2398 

vs 

2399 

vs 

2*00 

vs 

2*01 

vs 

2*02 
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TH1-SNP (5» 20) 

VS 

2403 


NH1«SNP<5*19) 

VS 

2404 


00 1 I«1»NCUH 

vs 

2405 


IF ( NH1 .NE • 0 .AND. X .LE. NH1) 60 TO 41 

vs 

2406 


FI-I-NH1 

vs 

2407 


FCUN-NCUM-NH1 

vs 

2408 


PP-PI-TH1 

vs 

2409 


TP-TH1 

vs 

2410 


60 TO 42 

vs 

2411 

41 

FI-I 

vs 

2412 


FCUN-NHl 

vs 

2413 


PP-TH1 

vs 

2414 


TP-O. 

vs 

2415 

42 

CONTINUE 

vs 

2416 


T-(2.*FI-1.)*PP/(2.*FCUM)*TP 

vs 

2417 


CF(I)-COSm 

vs 

2418 

1 

SF(I)-SIN(T) 

vs 

2419 


KCON-NF+1 

vs 

2420 


KC-NCUM 

vs 

2421 


DO 5 I -1» KCON 

vs 

2422 


IF (I .EO. KCON) KC-1 

vs 

2423 


IP-1 

vs 

2424 


IPN-1 

vs 

2423 


IW-1 

vs 

2426 


K-l 

vs 

2427 


12-1 

vs 

242P 


IFF-1 

vs 

2429 


NN-NW ( K* 1 ) 

vs 

2430 


ZA-O. 

vs 

2431 


YA-BRE AK ( K» 1 ) 

vs 

2432 


YAA-BREAK ( K» 1 ) 

vs 

2433 


IF (NASYN .EO. 0) 60 TO 40 

vs 

2434 


YA-YBREAK(K.NCl) 

vs 

2435 


YAA-YA 

vs 

2436 


IF (NCI .EO. 1) 60 TO 40 

vs 

2437 


NC11-NC1-1 

vs 

2438 


DO 411 J-1.NC11 

vs 

2439 


7A-2AMYBREAK (K»J )— YBRE AK (K»J*l))*DSIN(K#J*l) 

vs 

2440 

411 

YAA-YAA+t YBREAK(K»J)-YBREAKCK»J+1) )*DCOS(K, J*l) 

vs 

2441 


YA-YBRFAK(K.I) 

vs 

2442 

40 

CONTINUE 

vs 

2443 


YAP-YA 

vs 

244* 


YAAP-YAA 

vs 

2445 


DO 10 J-l.LPANEL 

vs 

2446 


ISN-1 

vs 

2447 


NL-Ntf(K.l) 

vs 

2448 


COSO-OCOS (K, IPN ) 

vs 

2449 


SINO-OSIN(K.IPN) 

vs 

2450 


NI-J-I FF+1 

.... vs 

2451 
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.AND. 

.AND. 


.IE. 
»LE . 


■ 1 
•1 


IF (J .GT. LPANl(K) 

IF CJ .GT. LPANl(K) 

CHORO*CH( IZ ) 

FN-NL 

A||/ S U| 

IF ( J .GE. IPANl(K) .AND. 

IFCJ .EO. LPN(K) .ANO. J 
00 15 KI"1»NC 
IF (I .EO* KCON) GO ^0 22 
X-XCFCI) 

Y»RF C I )*SF (KI ) 

Z .RF(I)*CF(KI) 

60 TO 23 

22 X-XLEF 
Y-0. 

2*0. 

23 CONTINUE 
Xl*XN ( J» 1 
X2-XNCJ#2)-X 
X12-XNC J»2)-XN( J»H 

ISH-2 . , TCM 

IF (IV(K) .EO. 1) ISN 
IF (NASYH .EO. 1> ISH 
00 13 II»1»ISN 

FCP-1. 

IF (II .EO. 2) FCP— 1. 

M(II)-0. 

W( II + 2 ) “0 • 

00 15 KK-l.LG 
PS-SIND 
PC -COSO 

Y12-YN( J»21“YN( J»li 
712«ZN ( J» 2 )-ZN t J » 1 ) + T12 PS 
Y12«Y12*PC 
YC*Y*FC P 

Y1*Y A A* ( YN t J • 1)-YA)*PC-YC 

Y2-YAA*(YNU»2)-YA)*PC-YC 
XYK»X1*Y12-Y1*X1 2 

IF (KK .EO. 1) GO TO 18 

ZC—2.*(Z*HEIGHT) + Z 

FCON-1. 

60 TO 19 
18 ZC-Z 
FCON.O. 

l<> Z1"ZN^[ J» U“ZC+ZA+(YN(J»1)~YA)*PS 

Z2.Zn!j,2)-ZCWAMYN(J,2)-YA)*PS 

XZJ-X1*Z12-Z1*X12 

0C0N«“Z1*Y12*("ATT)*FC0N 


IPN(K)) 

LPN(K)) 


ISN-2 

NL-NW(K,2) 


j ,LT. LPN(K)) NK-NW(K»2[ 
.IT. IPANEl) NK*NV(K*1*1> 


VS 2452 
VS 2453 


VS 

2454 

vs 

2455 

vs 

2456 

vs 

2457 

vs 

2458 

vs 

2459 

vs 

2460 

vs 

2461 

vs 

2462 

vs 

2463 

vs 

2464 

vs 

2465 

vs 

2466 

vs 

2467 

vs 

2468 

vs 

2469 

vs 

2470 

VS 

2471 

vs 

2472 

vs 

2473 

vs 

2474 

vs 

2475 

vs 

2476 

vs 

2477 

vs 

2478 


VS 2*79 
VS 2*80 


VS 

2481 

VS 

2482 

vs 

2483 

vs 

2484 

vs 

2485 

vs 

2486 

vs 

2487 

VS 

24e8 

vs 

2489 

vs 

2490 

vs 

2491 

vs 

2492 

vs 

2493 

vs 

2494 

vs 

2495, 

vs 

2496 

vs 

2497 

vs 

2498 

vs 

2499 

vs 

2500 
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ORJGSrJAL PAaE cS 

OF POOR QUALITY 


Y7I«Y1*Z12-71*Y12 VS 

AL01»XYK*XYK+X7J*X7J+B1*Y7I*Y7I VS 

R1B1»SQRT(X1*X1+B1*Y1*Y1+B1*Z1*Z1) VS 

R2B1«SQRT(X2*X2+B1*Y2*Y2+B1*Z2*Z2) VS 

UUB1»(X2+X12+B1*Y2*Y12+B1*Z2*Z12)/R2B1-(X1*X12*B1*Y1*Y12+B1*71*712VS 
1J/R1R1 VS 

61B1«C1.-X1/P1B1)/(Y1*YI*Z1*21 ) VS 

G2B1«(1.-X2/R2B1)/(Y2*Y2+Z2*Z2) VS 

F12-UUB1*(UC0H+XYK)/ALB1 VS 

G1 2" —Y 2*6281+ Y1*G181 VS 

IF(IP.EG.1.AN0.IV(K).E0.1 ) G12— Y2*G2B1 VS 

IF (I .EO. KCON ) GO TO 30 VS 

F13«UUB1*XZJ/AL81 VS 

G13«Z2*G2R1-Z1*G1B1 VS 

IF(IP.E0.1.AND.IV(K).E0.1) G13-Z2*G2B1 VS 

F1»-F13*SF(KI)*FCP+F12*CF(KI) VS 

F2»G13*SF(KI)*FCP+G12*CF(KI) VS 

GO TO 17 VS 

30 F1-F12 VS 

F2-G12 VS 

17 W(II + 2)-V(IU2) + (Fl+F2)*CHORO*SN(K,MI»ISN)/(P.*FN) VS 

IF (IP. .NF. 1) GO TO 16 VS 

G12--Y2+G2B1 VS 

G13-Z2+C2B1 VS 

F2»G13*SF(KI)*FCP+G12*CF(KI) VS 

IF (I .EO. KCON) F2-G12 VS 

16 W(II)-V(II)+(Fl+F2)*CH0RD*SN(K,MI,ISN)/(e.*FN> VS 

IF (I .EO. KCON) GO TO 15 VS 

AW<KI)-V(1)+W(2) VS 

BV(KI )-W(3)-W(4) VS 

15 CONTINUE VS 

IF (I .EO. KCON) GO TO 25 VS 

WRITE (03) (AV(KK),KK»1,NCUH) VS 

WRITE (03) (BW(KK ),KK-1,NCUN) VS 

GO TO 26 VS 

25 AW ( J ) *W ( 1 ) +W ( 2 ) VS 

26 CONTINUE VS 

IF (J .LT. NN) GO TO 27 VS 

IF (J .EO. tPANEL) GO TO 10 VS 

IP-IP+1 VS 

IZ-IZ+1 VS 

IFF-NN+1 VS 

NN-NN+NK VS 

IW-IV+1 VS 

IF ( I WING ( K ) ,NE, 0 .AND. IW .EO. ( I WING <l< >+l > > GO TO 1* VS 

IF (J .EO. IPANl(K) .OR. J .EO. IPN(K)) GO TO 32 VS 

IF (YLE(IZ) .LT. YBRE AK ( K # IPN ) ) GO TO 27 VS 

14 CONTINUE VS 

NJ-0 VS 


2501 

2502, 

2503 

2504 

2505 

2506 

2507 

2508 

2509 

2510 

2511 

2512 

2513 

2514 

2515 

2516 

2517 

2518 

2519 

2520 

2521 

2522 

2523 

2524 

2525 

2526 

2527 

2528 

2529 

2530 

2531 

2532 

2533 

2534 

2535 

2536 

2537 

2538 
2530 
2540 
2 r '41 

2542 

2543 

2544 

2545 

2546 

2547 

2548 

2549 
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.IT. NCI) NJ-1 


IV.EO.dVINGOO*!)) SO TO 3? 


52 

32 


53 


27 


10 


IF (NASYH .EO. 1 .AND. IPN 
IF (NJ .EO. 1) IPN-IPN+1 
ZA-ZAM YBREAK (K# IPN )-YA ) + DSIN ( K , I PN ) 

YAA-YAAM YBREAK (K,IPN)-YA)*DCOS(K,IPN) 

YA-YBPEAK(K.IPN) 
if (IWING(K).NE.O .AND. 

GO TO 53 

IF (IWGLT(K) .EO. 1) GO TO 53 
ZA-O. 

YA-BREAK(K»1) 

yaa«break (K» l ) 

IF(NASYM.E0.1. AND. J.EO. LPANKK) ) YA " YA ^ 

IFtNASYN. EO.l .AND. J.EO.LPANl(K) ) YAA-YAAP 
IF(J.EO.LPN(K ) . AND.K.LT .6) YA-BREAK ( K*l»l» 

IF(J.E0.LPN(K).AND.K.LT.6) YAA-BREAK(K*1»1) 

IF (J .EO. LPANl(K) .OR. J .EO. LPN(K)) GO TO 53 
IF (IVGLT(K) .NE. 2) GO TO 53 

ZA-Y8RE AK (K»NC (K )-2 )*D$I N(K#1 ) 

YAA- YBREAK ( K » NC (K )-2 ) *DCO S ( K» 1) 

YA-Y8REAK(K*NC(K)-2) 

CONTINUE 

IF (NJ .NE. 1) IPN-IPN+l 

IF (J .EO. LPANKK) .OR. J .EO. LPN ( K ) ) IPN-1 
K H *0 

IF (J .EO. LPANKK) .AND. J .NF. L PN (K ) ) KH-1 
IF (KH .EO. 1 .AND. K ,E0. 1) IV-!W-NS(K) 

IF (KH .EO. 1 .AND. K .GT. 1) IW-IV-NS (K ) *NS (K-l ) 

IFU.EO. LPANKK)) IP-1 
IF (J .EO.LPN (K ) ) IP-1 
IF ( J .EO. L PN ( K ) ) K «K + 1 
IF (I .NE. KCON) GO TO 5 
WRITE (03) (AW(KK)»KK-1»LPANEL) 

CONTINUE 
RETURN 
END 

s"5'o5n« L VR?US <l»»Mll.»y.M.»».l»m.IWtH6.NCl.DC0S,0SIH.N»SVF*S 
1 .YK.LPN.NS»IWGLT»NC»PREAK ) 

TO MANIPULATE VELOCITY COMPUTATIONS DUE TO FUSELAGE 
DIMENSION BREAK ( 6» 1 ) 


DIMENSION 
DIMENSION 
COMMON /GEOM/ 


oih ENS ,o» 


vs 

2550 

vs 

2551 

vs 

2552 

vs 

2553 

vs 

2554 

vs 

2555 

vs 

2556 

vs 

2557 

vs 

2558 

vs 

2559 

vs 

2560 

vs 

2561 

vs 

2562 

vs 

2563 

vs 

2564 

vs 

2565 

vs 

2566 

vs 

2567 

vs 

2568 

vs 

2569 

vs 

2570 

vs 

2571 

vs 

2572 

vs 

2573 

vs 

2574 

vs 

2575 

vs 

2576 

vs 

2577 

vs 

2578 

vs 

2579 

vs 

2580 

vs 

2581 

vs 

2582 

vs 

2583 

vs 

2584 

vs 

2565 

YMVS 

2586 

vs 

2587 

vs 

2588 

vs 

2589 

) vs 

2590 

vs 

2591 

1) * VS 

2592 


• aS > .cs< »o> : >;vGciM>isA( •: i». *» .»- « *s®;* »»*"« *** 

200#2 ) • 2N( 200> 2 ) # WIDTH ( 6> 5 ) t YCON ( 51 ) t SWEEP ( 100) * HALFD< 6 ) f S J< b* 31 * * | 

COHMON /CONST/ NC S #NC W#N1 ( 6# 5 ) # M JW 1 ( 6» 2 # 5> #N J W2 ( 6# 2 # 5 ) t N JW ( 6* 5 J VS 

^COMHOrWFUS/ XF<20)#XCF(20)fRF(20) t $NP ( 5# 20) » XLEF» XTEF# WARD (20) $ 


#NF VS 
VS 

vs 
vs 


2503 

2594 

2505 

2596 

2597 

2598 
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ORIGINAL FASH IZ 

OF POOR QvAUTY 


REWIND 02 vs 

REWIND 04 VS 

B-l.-AH+AH VS 

PI-3.14159265 VS 

TH1-SNP(5»20) VS 

NH1-SNP<5,19) VS 

NTl-NT+NF VS 

NG-NF VS 

DO 2 I-l, NT VS 

FI-I VS 

DO 2 K-l.NCUH VS 

IF (NH1 . NE • 0 .AND. K ,LE. NH1 ) GO TO 9 VS 

FK-K-NH1 VS 

FCUN-NCUP-NH1 VS 

PP-PI-TH1 VS 

TP-TH1 VS 

GO TO 11 VS 

9 FK-K VS 

FCUM-NH1 VS 

PP-TH1 VS 

TP-O. VS 

11 CONTINUE VS 

TA-(2.*FK-1.)*PP/(2.*FCUH)+TP VS 

2 SSF(I,K)-SIN<FI*TA) VS 

IZ-1 VS 

ISTP-1 VS 

NH-NW (1,1) VS 

NN-NW ( 1 # 1 ) VS 

IPN-1 VS 

L-l VS 

ZB-O. VS 

YB-BRE AK C 1# 1 ) VS 

YBB-BR EAK (1,1) VS 

IF(NASYN.EO.O) GO TO 6 VS 

Y8-YK (1»NC1 ) VS 

YBB-YB VS 

IF(NCl.EO.l) GO TO 6 VS 

N11-NC1-1 VS 

DO 7 I-l* Nil VS 

ZB-7B+(YK<1,I)-YK<1,I+1))40SIN(1,I+1) VS 

7 YBB«YBB+(YK(1,I)-YK(1,I+1))*OCOS(1,I+1> VS 

YB-YK ( 1 , 1 ) VS 

6 CONTINUE VS 

YBP-YB VS 

YBBP-YBB VS 

DO 1 I-l, LPANEL VS 

CSD-OCOS ( L» IPN ) VS 

SSD-DS IN( L, IPN) VS 

X-XCP(I) VS 


2599 

2600 
2601 
2602 

2603 

2604 

2605 

2606 
2607 
2606 

2609 

2610 
2611 
2612 

2613 

2614 

2615 

2616 

2617 

2618 

2619 

2620 
2621 
2622 

2623 

2624 

2625 

2626 

2627 

2628 

2629 

2630 

2631 

2632 

2633 

2634 

2635 

2636 

2637 

2638 

2639 

2640 

2641 

2642 

2643 

2644 

2645 

2646 

2647 
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60 TO 34 


Y-YBB4(YCPCI)-Y8)*CSD 

Z-ZCPC1)+ZB+CYCPCI)-YB)*SSD 

CW(1)«0. 

CALL UNVF CB#X» Y*Z» AW»CV»CSD»SSD) 

WRITE (02) (AW(K)#K“1» NTL ) 

WRITE C 04) CCVCK)»K«1#NTL) 

IF (I • GE .L PAN1 CD.ANO.I.LT.LPNCD) NN*NWCL»2) 
IFCI.EO.LPNCD.AND.I.LT.LPANEU NN "NUCLEI#!) 
IFCI.LT.HM) GO TO 8 
NN-NH+NN 
ISTP*I STP+1 

IFCIWlNGCL).NE.0.AND.ISTP.E0.CIWlNGCL)4l)) GO TO 33 
IF Cl .E 0.LPAN1 C L ) .OR .1 .EO .LPN CL ) ) GO TO 33 
IFCISTP.EO.CNSCD + l) ) GO TO 36 
IFCYLECIZ).LT.YKCL»IPN)) GO TO 8 
33 CONTINUE 
NI«0 

IF (N AS YN.EO.l. ANO.IPN.LT. NCI) NI«1 
IFCNI.EO.l) IPN-IPN+1 

ZB-ZB*(YK(L#IPN)-YB)*DSINCL»IPN) 

YBB-YBB+(YK(L»IPN)-YB)*OCOSCL»IPN) 

YB-YML.IPN) , . ,,, 

IF CIWINGt L) »NE .O.AND. ISTP • EO. (IWINGCL ) + l ) ) 

IF Cl .E0.LPAN1 CL > .OR .1 .EQ.LPNCD) GO TO 36 
60 TO 35 

IF(IWGLTCL).EO.l) GO TO 35 
7R-0. 

YB-BREAKCL»1) 

YBB-BREAK CL.l) 

IFCNASYM.E0.1.AND.I.E0.LPAN1CL)) 

IF CN AS YN. EO.l • AND .1 .EO.LP AN1 C L ) ) 

IF Cl • FO.LPNCL ) . AND.L .LT.6 ) 
IFCI.F0.LPNCD.AND.L.LT.6) 

IFCI.EO.LPNCL)) GO TO 35 
IF(ISTP.E0.(NS(L)*1)) GO TO 
IFCIWGLT(L) .NE.2) GO TO 35 
7B-YK CL»NCCL)-2)*DSINCL#1) 

YBB-YK(L»NC (L >-2 ) *000$ ( L » 1 ) 

YB-YK (L.NCCD-2) 

35 CONTINUE 

IF(NI.NE.l) IPN-IPN+1 
IFCI.EO.LPANKL ) .OR .1 .EO.LPNCL) ) 

8 KH»0 

ifci.eo.lpankd.and.i.ne.lpncd) KH-1 

IFCKH.EO.l.ANO.L.EO.l) 17*1 Z— NS 
IFCKH.EO.l.ANO.L.GT.l) 1 2 "1 2-NS (L ) *NS CL-l) 
IFCI.EO.LPNCL ).AND.NW(L» 2). NE.O) KH-2 
IFCXH.E0.2.AND.L.EQ.I) I Z ■ I Z -*-M S C L > 


34 

36 


YB-YBP 
YBB-YBBP 
YB-BREAKCL+1.1) 
YBB»BREAKCL+1*1) 

35 


IPN-1 


VS 

2648 

vs 

2649 

vs 

2650 

vs 

2651 

vs 

2652 

vs 

2653 

vs 

2654 

vs 

2655 

vs 

2656 

vs 

2657 

vs 

2658, 

vs 

2659 

vs 

2660 

vs 

2661 

vs 

2662 

vs 

2663 

vs 

2664 

vs 

2665 

vs 

2666 

vs 

2667 

vs 

2668' 

vs 

2669 

vs 

2670 

vs 

2671 

vs 

267? 

vs 

2673 

vs 

2674 

vs 

2675 

vs 

2676 

vs 

2677 

vs 

2678 

vs 

2679 

vs 

2680 

vs 

2681 


VS 2682 
VS 2683 
VS 2684 
VS 2685 
VS 2686 
VS 268T 
VS 2688 
VS 2689 
VS 2690 
VS 2691 » 
VS 2692 
VS 2693 
VS 2694 r 
VS 2695 
VS 2696 
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IFCKH.EO.2.AN0.L.GT.1) I7»IZ+NS(L)-N$(L-1) VS 

IF(KH.EO.l.AND.LiEQ.l) I STP-ISTR-NS ( L ) VS 

IF(KH.EO.l.AND.L.GT.l) I$TP»I$TP-NS(L)4NS(L-1> VS 

IF(I*EQ*LPN(L)) L-L+l VS 

1 CONTINUE VS 

CALL UNFW (LPANEL>B,AV»DW»NC1) VS 

DO 5 I»l» NT VS 

REWIND 03 VS 

N-I VS 

00 10 J-1#NF VS 

JJ-J VS 

00 15 K»1#LPANEL VS 

RE AO (03) (BW(KK),KK-1,NCUM) VS 

RE AO (03) (0W(KK),KK-1»NCUM) VS 

AN-O. VS 

BN-O. VS 

DO 20 KK-1»NCUN VS 

IF(NHl.NE.O.ANO.KK.LE.NHl) GO TO 12 VS 

FCUM-NCUM-NH1 VS 

PP-PI-TH1 VS 

GO TO 13 VS 

12 FCUN-NH1 VS 

PP-TH1 VS 

13 CONTINUE VS 

BN»8N+0W(KK)*SSF(I#KK)*PP/FCUM VS 

20 AN-AN+BW(KK)*CSF(I,KK)*PP/FCUP VS 

AN»AN*2./PI VS 

BN-BN*2./PI VS 

CW(K)-BN*RFU)**(I*1) VS 

15 AV(K )-AN*RF(J)**(I*l) VS 

CALL FUSELA ( NG# BW» N, J J, XAS» XTEF > XF» XCF»RF , P , SH P,NKF ) VS 

00 25 KK-1»NTL VS 

Nl*( I— 1 )*NF+1 VS 

N2»I*NF VS 

NB-KK+LPANEL VS 

IF (KK ,GE. N1 .AND. KK .LE. N2> GO TO 26 VS 

AW(NB)-0. VS 

CV(NB)«0. VS 

GO TO 25 VS 

26 NK-KK-N1+1 VS 

AW(NB)-BW(NK) VS 

CW(NB)-BW(NK) VS 

25 CONTINUE VS 

WRITE (04) ( CW ( K ) #K «1 # LWF ) VS 

10 WRITE (02) (AW(K),K-1»LWF) VS 

5 CONTINUE VS 

RETURN VS 

END VS 

C FORTRAN NLSTIN VS 


2697 

2698 
2699* 

2700 

2701 
2702, 

2703 

2704 

2705 

2706 

2707 
270P. 

2709 

2710 
2711 , 

2712 

2713 

2714 

2715 

2716 

2717 
2756 

2719 

2720 

2721 
272? 

2723 

2724 

2725 

2726 

2727 
2726 

2729 

2730 

2731 

2732 

2733 
273 A 

2735 

2736 

2737 
?73P 

2739 

2740 

2741 

2742 

2743 

2744 

2745 
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c 

c 


c 

c 

c 


SUBROUTINE FALONE(8>CS»AW»CA»GAMMA) 

TO CALCULATE THE SOURCE DISTRIBUTION FOR THE FUSELAGE VOLUME 
EFFECT 

DIMENSION AW(1)»CA(1)»GAMMA(1) 

COMMON /FUS/ XF<20)#XCF(20)#RF(20)#$NP(5#20)#XIEF#XTEF» VARD(20) * 
1NCUM.NF»NT»CSF(5#10)#XAS(6)»NKF{5)*FO#F10#KF#NTL#LMF#VKN»ROX#X1 

N«0 

RI-3. 14159265 

NI»NF 

NF1-NF+1 

S-XTEF-XLEF 

DO 5 I-1#NF 

IJ-I 

XS"XCF(IJ)-XTEF 
IFd.EO.NF> RFL-O. 

IF(I.NE.NF) PFl-XS/SORT(XS*XS+R*PF<IJ)*PFCIJ)> 

CALL FUSELA(NI»AV#N»IJ#XA$»XTEF»XF#XC C »RF#B#$NP#NKF) 

XD-XCF C I J I 
XEF-XCF(IJ)-XLEF 

AV(NF1 )— SLOP (XD)*CS-(RFL-XEF/SQRTtXEF*XEF*B*RF<IJI*RF{IJn ) 

1*F0/ (4.*PI) 

IF(I.NE.l) GO TO 10 
DO 1? K-l.NF 

15 GAMMA (K )»-AV(K+l )/AWtl) 

NJ-NF-1 
60 TO 5 

10 CALL VMSEON(NJ, I J # A V. GAMM A»C A ) 

NJ-NJ-1 
5 CONTINUE 
DO 12 I-l.NF 
12 WARD ( I ) "GAMMA ( I ) 

RETURN 

END 

LINK LINK33.LINK22 
FORTRAN NLSTIN 
SUBROUTINE SOLUTN 

TO MANIPULATE AND OBTAIN THE TOTAL AERODYNAMIC RESULTS 
DIMENSION GAMMA ( 10105 ) 

DIMENSION AV< 200) »CA(201 ) #DMM(50) 

COMMON/LOOP/KP,NALP#KALP,TANC2#CLOS,AL#CLII#ALPII#ALPA<15) 

COMMON /DSL/ CTP < 6» 2 ) » CHOPDTI 6. 4 ) # SCH ( 200) » L AT# CREF #BR cF 2 
COMMON/GD/ TINP(6)»BREAK(6#10)»TFLPC6»5)#RINCf6)»NAL(6) 
1,YBREAK<6»7),DC0S(6,5)»DSIN<6#5)#IVING(6),IWGLT(6)#IV<6>#LPAN1(6) 
1# ICAMT (6) 

COMMON /AJG / ALP»J1#CP(200)#GAMPC200)» GAMB ( 200 ) # 6AMR (200) 
1#GAMX(200)»7ZCP < 200 > # DZ Y < 200) # BMR < 6# 50 ) » BML < 6# 50 ) #CSU ( 50 ) 

COMMON /SCHEME/ C ( 2 ) # X ( 15 # 41 ) # Y ( 1 5 # 41 ) » SLOPE ( 15 ) *XL C 2# 1 5 ) # XTT ( 41 ) 
1XLL(A1> 

COMMON /GE OH/ HALF SW. XC PJ 200 ) # YC P < 200 ) » ZCP C 200 ) # XLE ( 1 00 ) . YL E < 10 0 ) 


VS 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

#vs 

vs 

»vs 


2746 

2747, 

2748 

2749 

2750 
2751' 

2752 

2753 

2754 

2755 

2756 

2757 

2758 

2759 
2760 f 

2761 

2762 

2763 

2764 
2765, 

2766 

2767 

2768 

2769 

2770 

2771 

2772 

2773 
2774* 

2775 

2776 

2777 

2778 

2779 

2780 

2781 

2782 

2783 

2784 

2785 

2786 

2787 
2708 

2789 L 

2790 

2791 

2792 j 

2793 

2794 
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0 .*r^ •* "* • j ; *• * t- rr* 

A it -Nu, e . .V C - 1 >J 

OF POOR QUALITY 


VS 

VS 

VS 

VS 

vs 

vs 

vs 


i j;;;5N/^;i“ , c£ix;:i^iTSUo“USV" < ,!;Tc„o ) . e? .«cccT G . 15 .. S To,ivs 

”im55 , nmi/ L Y" F M6,10.J..*«F<6.10),rNF<»,10..7HM6,10I.XlF(6,10VS 
, j;ro» f n;mV;mlims:6.n...Y.6.«.,er(6.20,.ccY,6. 2 o, ( OY.6, V S 

^nlmnij itupi c / NL E * YSL ( 15 ) » AOl ( 1 * > # BOL ( 1* ) »COL C 1 * ) »0CL < 1* ) 
COMMON/SHPTE/ NTE,YS T(1 5) , A° T tl^WBO T ll^>.COTtlA WD° T<1 A> 

COMMON /SSS / NASYH* NSUR » t PANEL# ICAMB# NUHSf I AGVXt PT 

2 C0KHOM/SL / C0SA»SINA« M 7 'CY*»Y6BK » 7BY »GW#l ATT 


VS 

vs 

vs 

vs 

vs 

vs 

vs 


COMHON/SL/ C0SA#5INA»"£»t. ' D 5J, cctAtaNVRTX(6)»SNALP(50)»CNALP(50)VS 

COrniON/GOSl/ OF<6,S».WH(» ; * ,NIEM» iLitli? VS 


COMMON /INOUT/ INPT»JPT 
2 FORMAT (8F10.6) 

LVF»C P AUG ( 200 ) 

00 115 I*1»LWF 
115 GAMMAtH-CPU) 

npp-nalp 

CU50WREF 
CM ( 50 ) "NSUR 

mr?2iusi S UBAN E l,G.Y-A,S N .LT.lBAKl,K«|;,TCA»».HUF.N.l. 

1IV.IVING»YBRFAK,DCOS»DSIN,CSU»IVGLT»0#0.»0.»0., 

2CNALP»TFLP#NCl»KT?RC»lCAhT»SVPP»IBLC#GAMP*PRFAK) 

WRITEIJPT*2) CCT(I)#I«1*HCSI 

00 187 1-1»NCS 

BHP(1» I)-CT<H-ABS(CSU(I) ) 

BMl(l»n-CM(I) 

187 Y Cl» I ) “CD ( I ) 

NL-1 

KCH«1 

K«1 

> ^^CALCULATION OF SUCTION FROM THRUST 

00 2201 I«1#NCS 


VS 

VS 

VS 

VS 

VS 

VS 

vs 

vs 

vs 

vs 

vs 

vs 

VS 

vs 

VS 

vs 

vs 

vs 

vs 

vs 

vs 

VS 

vs 

vs 

vs 

vs 

vs 


2795 

2796 

2797 

2798 

2799 

2800 
2801 
2802 

2803 

2804 

2805 

2806 

2807 

2808 

2809 

2810 
2811 
2812 
2813 
281* 

2815 

2816 

2817 

2818 

2819 

2820 
2821 
2822 
2823 
282* 

2825 

2826 

2827 

2828 
2829 
2030 
2831 
2P32 
2833 
283* 

2835 

2836 

2837 

2838 

2839 
20*0 
28*1 
28*2 
28*3 
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60 TO 2205 


JZ-2 

IF(NLEFCK).EO.l) J7-1 
SOO»XLL(I) 

COO"XTT<I) 

IF<NW(K#2).EO.O) GO TO 2202 
IF(K.E0.11 1 1 "KCH+H S ( K ) 

IFCK.GT .1 ) II«KCH+MSCK)-HS(K-1) 

CHl»CH(KCH)*CH(II) 

60 TO 2203 

2202 CHL-CH(KCH) 

2203 CONTINUE 
CHORO-CHL 
D20Y»0# 

TSW.SIN(SWEEP(KCH))/COS(SWEEP(KCH) ) 

IF (I ALP«EO. 1 ) GO TO 2200 

IF(IWING<K).NE.O.ANO.I.GT.IWING(K>) 

IF ( IC AH(K ) « EO • 2 ) GO TO 2210 
IFtICAM<K).E0.3) XC-XLE(KCH) 

CAll C 7CR(XC,YLE(KCH),CAMLE,ICAN,71,K,l,CHORO,D2DY»IST,TSW) 

IFCLL«GE»HJW1(K»J2^NL?«AN0»LL*LE»NJW2(K#JZ»NL>) GO TO 2225 
GO TO 2220 

2225 CANLE-CAMLE*TFLP(K,NU 
GO TO 2220 
2210 YC-YLE (KCH) 

XC-XLE(KCH) 

CALL 7C0X(XC»YC*CAMLE#DZDY) 

Zl-YC 

2220 EP«ALPH ( I ) 

XCS-COS(EP) 

XSS-SIN(EP) 

GO TO 2230 
2200 XCS-1. 

XSS-O. 

CAMLE-O. 

GO TO 2230 
2205 CANLE-O. 

IF(ICT.NE.O) CALL ZCR ( XC > YLE ( KCH) #C AHLE»ICAH#I1#K# ICT# 

1 CHORD# DZDY#IST»TSW) 

XCS-COS(ALPHII)) 

XSS»SIN(ALPH( I ) ) 

IF (LL»GE#HJW1 (K # J Z»NL? • ANO«lL«LE#H JW2CK# JZ»NL 1 ) GO TO 2235 

GO TO 2230 

2235 CANLE-CAHLEdFLP(K,NL) 

2230 CONTINUE 


VS 28** 
VS 28*5 


VS 

28*6 

vs 

28*7 

vs 

28*8 

vs 

28*9 

vs 

2850 

vs 

2851 

vs 

2852 

vs 

2853 

vs 

285* 

vs 

2855 

vs 

2856 

vs 

2857 

vs 

2858 

vs 

2859 

vs 

2860 

vs 

2861 

vs 

2862 

vs 

2863 

vs 

286* 

V? 

2865 

VS 

2866 

vs 

2867 

vs 

2868 

vs 

2869 

vs 

2870 

vs 

2871 

vs 

2872 

vs 

2873 

vs 

287* 

vs 

2875 

vs 

2876 

vs 

2877 

vs 

2878 

vs 

2879 

vs 

28 eo 

vs 

2881 

vs 

2882 

vs 

2883 

vs 

288* 


VS 2865 
VS 2886 
VS 2887 
VS 2888 
VS 2889 
VS 2890 
VS 2891 
VS 2892 


1A8 


r> r> r> 


ORIGINAL PASS 53 

OF POOR QUALITY 


CAHY-DZDY 
DZDY«0 • 

IF(ICAN<K).tE.l> ?l-0. 

FS»COS(SVEEP<KCH)) 

SSK»SIN(SWEEP(KCH)) 


TAN-SSN/FS 

IF(ABS(C0D).GT.O.l)F5«Fl?/S0RT(F3*F3+F4*F4> 

IF(ABS(C0D).LE.0.1)F5"1./FS 
CSU(I)"CSU(I)*F5 
DMMCI)-CSU<I)*CHL 
BNR( 6# I)“CL (I )/FS*CHL 


X<14, I )«F5 
X(13» D-CHL 
X(11.I)-XIE(KCH) 


KCH-KCH+1 

LL»Ll+NW(K»l) 

IF (I .NE .NS (K) ) GO TO 2P31 
IF (NW (K» 2 ) • EO.O ) GO TO 2231 
IFCK.EQ.l) GO TO 2232 

KCH-KCH«-NS(K)-N$(K-1) 
LL'LLdNS (K )-NS (K-1))*NW(K»?) 


GO TO 2231 
2232 KCH-KCH+NS (K ) 

LL«LL+NS(K)*NW(K,2) 

2231 CONTINUE 

IF ( ( LL+NV (K »1J— 1)«EQ«HJW2(K»2»ND) 


2201 IF(I.EO.NSfK) ) 
C WRITE ( JPT» 2 ) 

DO 901 I » 1 » L WF 
901 C P AU G ( I ) * 0 . 

DO 908 I "1 » NC S 

ooe cvpm»c. 


K-K + l 

( DKN ( I ) » I *1 #NC$ ) 


NL-NL-H 


VORTEX LIFT AUGMENTATION 
ONLY ONE INBOARD VORTEX PRODUCING LIFT 


GW»0 . 

MZ»0 

IFINUNS.EO.OI GO TO 900 
IF (I ALP.EO.l ) GO TO 900 
IF(NVL2tl) .EO.NS(l)) GO TO 900 
IF(IAGVX.EO.O) GO TO 900 
IFIALP.LT. 0.0001) GO TO 900 
00 906 I«1»NCS 


augmentation 


IS ALLOWED. 


VS 2893 
VS 2894 
VS 2895 
VS 2896 
VS 2897 
VS 2898 
VS 2899 
VS 2900 
VS 2901 
VS 2902 
VS 2903 
VS 290'. 
VS 2905 
VS 2°06 
VS 29C7 
VS 2908 
VS 2909 


VS 

?9io 

vs 

2911 

vs 

2912 

vs 

29 13 

vs 

2914 

vs 

2915 

vs 

2916 

vs 

2917 

vs 

2918 

vs 

2919 

vs 

2920 

vs 

2921 

vs 

2922 

VS 

2923 

vs 

2^24 

VS 

?0 ?5 

vs 

2926 

vs 

29'»7 

vs 

2 928 

vs 

292 9 

vs 

?9 "0 

vs 

2931 

vs 

29^2 

vs 

2933 

vs 

2934 

vs 

2935 

vs 

2936 

vs 

2937 

vs 

2938 

vs 

2939 

vs 

2940 

vs 

2941 
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c 


c 


c 


c 


BMRt 3 # I )»Xt 15 * I ) 

906 8 HP( 2 »I)* 0 HH( I) 

KD -1 

Nl-NVLltl) 

N 2 -NVL 2 < 1 ) 

If(Nl.GT.l) KP -2 
X 2 -AUXtl,KD) 

SLK-SlETHtl) 

Y 2 "YCNTDt 1 ) 

TANl»SINt$WFEPtNl))/COS<SWEEPtNin 
TAN2 -S IN f SWEE P tN21> /COStS VEEP tN2)) 

AP-SNALPtl)*0.5*tTANl4TAN2> 

ZVV-VFRCORt AP) 

Z2-VIDTHtl»KD)*ZVV 
Z2-0. 

VRTTEtJPT.2) X2» Y2» Z2» B2 
KCOT-1 
KCT-0 

904 CONTINUE 

CALL SPNINTtNVLl t 1) #NVL2( 1) #NS # DMM #S J# SWEE P » Ml » X , GM > WIDTH* GW 


IFtKCT.EO.l) GO TO 8Q6 VS 

GH-GM/SLK VS 

PS 1 1 KC.OT ) *GM VS 

USE AITVEN'S FORMULA TO EXTRAPOLATE VS 

IFtKCOT.GE.3) GM- ( P S I ( K COT-2 ) *PS I t KCOT l-PSI t K COT-1 ) ** 2 ) / ( PS I < KC OT VS 
1—2 >-2.*PSI( KCOT-1 ) + PSI tKCOTU VS 

PSI(KCOT)-GM VS 

VRITFIJPT.2) GM VS 

CALL AUGVOR(AW#CA,CPAUG,GM»LPANEL» X2# Y2» Z? » 8 2 » Z ZCP» XCP * YCP# 0 1 VS 

SLOP E 1 1 5 ) *X 2 VS 

SLOPE 1 14 ) -Y2 VS 

SLOPE t 13)-Z2 VS 

SLOPE t 1 2) -GM VS 

StOPEtll ) ■ GW VS 

IFtKCOT.EO.l) TGM-GM VS 

NZ-10 VS 


VS 

VS 

VS 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 


CALL THRUST (LPANEL* CP AUG» SNALP»LPAN1»ICAM,ICAMP»NLFF,NAL»IV»IVING»VS 
lYeREAK , »DC0S#DSIN»CVP#IWGLT»MZ#O.#O.»O.»CNALP#TFLP»NCl»KT#RC»ICAMT»VS 


2SWPPf IBLC.GAMP, BREAK ) VS 

VRITEtJPT.2) (C VR 1 1 ) » I »1 » NCS ) VS 

DO 905 I-1»NC$ VS 

FC-1. VS 

IFtCVRlII.LT.O.) FC— 1. VS 

FCC-1. VS 

CUI»CTtI)*Xtl4#I) VS 

IFtCUI .LT.O. ) FCC— 1. VS 

CVR(I)-CVRII)*X(14»I) VS 

CU»2.*FC*FCC*S0RTlABStCUI*CVRtI) ) )+ABStCVP tl ) ) VS 

CVRt I ) •FCC*Cll VS 


2942 

2943 

2944 

2945 

2946 

2947 

2948 

2949 

2950 

2951 

2952 

2953 

2954 

2955 

2956 

2957 

2958 

2959 

2960 

2961 
296 ? 

2963 

2964 

2965 
296 4 
2967 
296 ft 
2069 

2970 

2971 

2972 

2973 

2974 

2975 

2976 
297? 
297 .? 
2979 
2990 

2981 

2982 
2963 
2984 
2905 
2986 
29B7 

2988 

2989 

2990 
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o o r> 


ORtG’iNAL PAGE *S 

OF POOR QUALITY 


' IF (KC0T.GE.6) GO TO 905 
DHM(I)-BNR(2#I)*CVRm*X(13»I) 

X(15»I)-BFR{3»I)+CL(n 
905 CONTINUE 
ERR-1. 

"!£”^";!i3rGr;r«5" KC ° T, ‘ PS,<KCOI - 1,,,,,SI,K ' OT - i, > 

KCOT-KCOT+l 

IF(KCOT.LE.ft) GO TO 904 
897 CONTINUE 
KCT«1 
GO TO 904 
896 CONTINUE 

00 907 I-liNCS 

OHM(I)«BNR(2»I)+CVR(I)+X(13»I) 

907 Y(1>I)»Y(1*I)+C0(I) 

00 913 I-l.LPANEL 
913 GAHMA< I)-GANNA(I)+CPAUGm 
SL0PE(12)-TGN 
900 CONTINUE 


SIOE-EDGf SUCTION AND STPEAFVISE VORTEX DENSITY 
CN(50)«NSUR 

l C CTX,IVGtT>oJsE#l) LPAN1 ' LPANEUG4f1MA,PREAK ' CHORDT,IWING ' YCN ' CTP » 
DO IBB I«1»LPANEL 
188 GAMX ( I ) «C A ( I ) 

00 1352 I-1*NSUR 
NCW«NV(I#1)+NW(I#2) 

•* 00 1352 J-l.NCV 
Y(4+I,J)-SE(1,I,J) 

1352 COSA*>COS(ALP?^*°* E ' P *^ AS ^ P ' E ^*^ * V( 10 + I»J)-PUMT(1#I,J) 

SINA-SIN( ALP) 

IF(IRL.EO.l) p«pt*cosa 
IF(IRL.EO. l) RL»PT*SINA 
IF (RL »LT. 1. E-5) RL-0.1 

IFCLAT.NE.O) CALL L AT ERL ( GANNA, AV, C A, l AT»LPANFL . 1 PAN! .rttr-w*. 

" »I P !!^ A><, ^* N, ^ < ' G ^ , * W '^ G '*'' < ’IT>NPP»AL?»GANP»GAI I!, 8,GAHR#CP»GANX ORPAK 

• 2CH0R0T»YCN»SNALP»CNALP>DZY>NLEF»NCl»SWPPfIBLC»CFF»IV»ICAN ir kmn 
3 KT,PC,SE,ICANT,NVL1,NVL2,D«N,Z7CP,NZ,NAUG) ' C ' CFF » IV ' IC A >» ^"8 , 

00 5 I «1 » LWF 
5 SCH( I ) >GA NH A ( I ) 

IF (L AT . NE . (-1 ) ) 

00 1351 I-l.NCS 
1351 GAMP (I)*>CD(I) 

1350 CONTINUE 

IFfLAT «E0« (-1 ) ) 


GO TO 1350 


GO TO 117 


VS 

2991 

vs 

2992 

vs 

2993 

vs 

2994 

vs 

2995 

vs 

2996 

vs 

2997 

vs 

2998 

vs 

2999 

vs 

3000 

vs 

3001 

VS 

3002 

vs 

3003 

vs 

3004 

vs 

3005 

vs 

3006 

vs 

3007 

vs 

3008 

vs 

3009 

vs 

3010 

vs 

3011' 

vs 

3012 

vs 

3013 

vs 

3014, 

vs 

3015 

vs 

3016 

vs 

3017 

vs 

3018 

vs 

3019 

vs 

3020* 

vs 

3021 

vs 

3022 

vs 

3023 

vs 

3024 

vs 

3025 

vs 

3026 

vs 

3027 

vs 

302? 

vs 

3029 

>vs 

3020 

vs 

3031 

vs 

3032 

vs 

3033 

vs 

3034, 

vs 

3035 

vs 

3036 

vs 

3037 

vs 

3038 ! 

vs 

3039 
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00 118 I-1>LVF 

lie $CH( I ) -0» 

117 CONTINUE 
LATT-LAT 

IF(NASYM.EO.l.AND.LAT.NE.l) LAT— 1 
00 914 I-1*NCS 
CT(I ) • ABS (CT( I ) ) 

914 CL(I>-OMM<I) 

RETURN 
END 

FORTRAN NLSTIN 

SUBROUTINE THRUST ( l PANEL , CAMP A » SN AL P» IRANI t IC AN, IC AM8 » NL EF »NAL # 

• 1 IV, I WING, YK,DC,DS,CSU,IUGLT,KZ,P,BK,PL»CNALP»FLP*NC1,KT,RC,ICAMT, 

2 SVPP,IBLC, GAM, BREAK) 

TO CALCULATE L.E. THRUST 

DIMENSION SWP P ( 6, 1 ) * GAM ( 1 ) » AW ( 50 ) » BM ( 50 ) » PPE AK ( 6, 1 ) 

DIMENSION GAMMA (1 ) , SN AL P ( 1 ) , YK ( 6, 1 ) » DC ( 6, 1 ) , DS (6# 1 ) #C SH ( 1 ) 

DIMENSION CNALP(1 ) , EL P ( 6, 1 ) #RC ( 6, 1 ) » IC AMT Cl) 

DIMENSION ICAM(1),NLFF(1),NAL(1)»IV(1),IWING(1)»IWGLT(1)»LPAN1(1) 
COMMON /GEOM/ HAL FS W, XCP ( 200 ) , YCP ( 200 ) . ZCP C 200 ) . XLE ( 100 ) , YL E ( 100) * VS. 
1XTE(100)»P$I(30)»CH(100)» XV ( 200 ) , YV( 200 ) , SN ( 6* 1 5» 2 ) » XN ( 200, 2 ) t YN( 2VS 
200»2)»ZN(200»2)»WIDTH(6#5)»YCON(51)»$WEEP<100)»HALFB(6)»$J(6»31»5)V$ 
COMMON /AFRO/ AM»B*CL(50)»CT(50)»CD(50)»CM(50) VS 

COMMON /CONST/ NCS»NCW»M1<6,5)»MJV1(6»2#5),MJV2(6»2»5>»NJW(6,5), VS 

1 NE P( 6 ) » NW ( 6, 2 ) VS 

COMMON /EXTRA/ L PN ( 6 ) * NS ( fc ) , ICNL F ( 6 ) , I TVST ( 6 ) > I ST ( 6 ) »NGRO ,HE I GHT, VS 
1ATT,NC<6) ,NVINC(6), IPOS ( 6 ) , I ALP , OUMT ( 3, 6. 1 5 ) » HALFBH ( 6 ) VS 

COMMON /SCHEME/ C ( 2 ) * X ( 1 5, 41 ) » Y ( 1 5# 41 ) , SLOPE ( 15 ) » XL ( Z» 1 5 ) , XTT ( 4 1 ) ,VS 
1XLK41) VS 

COMMON /INOUT/ INPT » JPT 

COMMON /FUS / XF(20),XCF<20),RF(20),SNP(5,20)fXLEF»XTEF.WARD(20) , 
1NCUM,NF,NT»CSF(5»10)>XAS<6)»NKF(5>,FO,F10#KF#NTL*LWF#VKN»POX»XU 
NASYM-YC0N(50) 


VS 

VS 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 


XREF-CLI50) 

GBO-O. 

IF(KZ.NE.IO) GO TO 41 
XD-SL0PFU5) 

YD«SL0PE<14) 

ZD«SL0PE(13) 

GM-SLOPF ( 12 ) 

41 CONTINUE 

IF(KZ.EO.l) CFF-PSK29) 

FPC-O. 

IFCK7.E0.1) FPC-2.2*S0RT(CFF) 

NL “1 

LG-1 

IF ( NGRO .EO. 1) LG-2 
81-8 

PI-3.14159265 


VS 

VS 

VS 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 


3040 

3041 

3042 

3043 

3044 

3045 

3046 

3047 

3048 

3049 

3050 
3C51 

3052 

3053 

3054 

3055 

3056 

3057 

3058 

3059 

3060 

3061 

3062 

3063 

3064 

3065 

3066 

3067 

3068 

3069 
3C70 

3071 

3072 

3073 

3074 

3075 

3076 

3077 

3078 

3079 

3080 

3081 
30 6 2 

3083 

3084 

3005 

3086 

3087 

3006 
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ORIGINAL PflQe 

OF POOR QUAUTY 


zb-o. 

YB-BRE AK ( 1 # 1 ) 

YBB«BREAK(1#1) 

IF (N AS YM. EO.O ) GO TO 71 
YB-YK ( 1»NC1 ) 

VRRaVR 

IF(NCl.EO.l) GO TO 71 

NC11-NC1-1 

00 72 I-1*NC11 

ZB-78+(YK (1#I)-YK (1,I+1> )*DS(1»I+1> 

72 YBB-YBB*<YK<l»I>-YK(l#I + m*DC<l»I+l> 
YB-YK C 1» 1 ) 

71 CONTINUE 
IPN-1 
L-l 
KH-1 
KP-1 

DO 1 I -1*NCS 
CN«NM(L»1) 

CS“DC(L»IPH) 

SS-OS(l#IPN) 

J7-2 

N7-1 

IF (NLEF(L).EO.l) JZ-1 
IF (NLEF(L).EO.l) NZ-2 
K-l 

FCOS-COS(SWEEP(KM)J 
FTAN- S IN ( SWEEP ( KN ) ) /FCOS 
TSV-FTAN 
CST-CS 

IF <NW(L»2).EQ.O) GO TO 50 
IF(L.EO.l) I1-KM+NS(L> 

IF(L.GT.l) Il-KN«-NS(l)-NS(l-l> 
CHL-CH(KN)+CH(I1 ) 

GO TO 51 

50 CHl-CH(KM) 

51 CONTINUE 
SRT-SQRT<CH(KN) 7CHL) 

BB-B 

IZ-1 

IW-1 

MM-0 

NH-NW ( K# 1 ) 

A*0. 

BN-O. 

KCH-KH 

IP-1 

IF (KF .EO* 0) GO TO 90 
XO-XLE (KCH) 


VS 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 


3089 

3090 

3091 

3092 

3093 
3099 

3095 

3096 

3097 

3098 

3099 

3100 

3101 

3102 

3103 
3109 

3105 

3106 

3107 
3106 

3109 

3110 

3111 

3112 

3113 
3119 

3115 

3116 

3117 
3113 

3119 

3120 

3121 

3122 

3123 
3129 

3125 

3126 

3127 
3123 

3129 

3130 

3131 

3132 

3133 
3139 

3135 

3136 

3137 


153 


YO-YBB+<YLE<KCH)-YB >*cs 
ZO-ZCPIKP J + ZBM YLF(KCH)-YB)*SS 
CALL UNVF(8>XQ» YO»ZQ» AV»8V#CS*SS) 

00 91 I0-1#NTL 

IX-IO+LPANEL 

IF {K Z *NE .0) GO TO 95 

A-A+AV(I0)*GANHA(IXH'8. 

GO TO 91 

95 A-A*8V(I0)*GAMMA<IX>*8. 

91 CONTINUE 
90 CONTINUE 
ZA«0 • 

YA-BREAK(K.l) 

YAA-BREAMK»1) 

IF(NASYM.EO.O) GO TO 73 
YA-YK(K#NC1) 

YAA»YA 

IF(NCl.EO.l) GO TO 73 

NC11-NC1-1 

00 74 J-liNCll 

ZA-ZA+(YK(K.J)-YK (K, J+l) )*DS(K,J+1 ) 

74 YAA«YAA + (YK(K,J >-YK(K#J + l ))*DCCK»J*1) 
YA-YK { K# 1 ) 

73 CONTINUE 
YA p * YA 
YAAP-YAA 
IPN-1 

200 FORMAT <5(6X»I4) ) 

00 30 NN-l.LPANEL 
ISN-1 

N0-NW(K»1) 

COSO-DC (K» I PN ) 

SINO-OS(K,IPN) 


J-NN-MM 

IF (NN.GT.LPAN1 (K ) • AND .NN.LE.LPN (K ) ) GO TO 21 
GO TO 22 

21 N0«NW(K,2) 

IF (NN .GT. LPANKK).ANO.NN.LE.LPN(K)) ISN-2 

22 CONTINUE 
FN-ND 
NK-NO 

IF(NN.GE.LPAN1(K).AND.NN.LT.LPN(K)) NK»NV(K#2) 
IF(NN.EO.LPN(K) . AND. NN.LT.L PANEL ) NK»NV<K*1»1> 
X1-XN(NN,1)-XLE(KCH) 

X2-XN(NN#2)-XLE(KCH) 

X12-XN(NN»2)-XN(NN#1> 

ISH-2 

FC-1. 

IF (IV(K).EO.l) ISM-1 


VS 

3138 

vs 

3139 

vs 

3140 

vs 

3141 

vs 

3142 

vs 

3143 

vs 

3144 

vs 

3143 

vs 

3146 

vs 

3147 

vs 

3148 

vs 

3149 

vs 

3150 

vs 

3151 

vs 

3152 

vs 

3153 

vs 

3154 

vs 

3155 

vs 

3156 

vs 

3157 

vs 

3158 

vs 

3159 

vs 

3160 

vs 

3161 

vs 

3162 

vs 

3163 

vs 

3164 

vs 

3165 

vs 

3166 

vs 

3167 

vs 

3168 

vs 

3169 

vs 

3170 

vs 

3171 

vs 

3172 

vs 

3173 

vs 

3174 

vs 

3175 

vs 

3176 

vs 

3177 

vs 

3178 

vs 

3179 

vs 

3180 

vs 

3181 

vs 

3182 

vs 

31P3 

vs 

3184 

vs 

3185 

vs 

3186 
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ORIGINAL PAGE ?? 

OF POOR QUALITY 



IF(NASYM.EO.l) ISM-1 

VS 

3187 


00 35 IM-1» ISM 

VS 

3188 


IF(KZ.NE.0.AND.LM.EQ.2) FC— 1. 

VS 

3189 


XF(KZ.EO.IO) FC-1. 

VS 

3190 


IF(LM.EO.l) 60 TO 36 

VS 

3191 


Nl-1 

VS 

3192 


60 TO 37 

vs 

3193 

36 

HI -2 

vs 

3194 

37 

CONTINUE 

vs 

3195 


DO 35 KK-1*LG 

vs 

3196 


IF(ABS<CS-COSO).GT. 0.001) GO TO 31 

vs 

3197 


IF CABS (SS— SIND) .GT. 0.001) GO TO 31 

vs 

3198 


IF<NC(K).GT.l) GO TO 31 

vs 

3199 


IF(LM,E0.1.AND.KK.EQ.l) GO TO 40 

vs 

3200 

31 

CONTINUE 

vs 

3201 


PS-SIND 

vs 

3202 


PC-COSD 

vs 

3203 


os-ss 

vs 

3204 


oc-cs 

vs 

3205 


60 TO 45 

vs 

3206 

40 

PS«0. 

vs 

3207 


PC-1. 

vs 

3208 


os-o.- 

vs 

3209 


OC-1. 

vs 

3210 

45 

CONTINUE 

vs 

3211 


Y1 2- YN (NN» 2 )— YN ( NN» 1 ) 

VS 

3212 


712«7N(NN»2)-ZN(NN#1)4Y12*PS 

vs 

3213 


Y1 2- Y1 2*PC 

vs 

3214 


YC«<-1. )**N1*<YBB+(YLE(KCH)-YB)*0C ) 

vs 

3215 


Y1-YAA+(YN(NN#1)-YA)*PC-YC 

vs 

3216 


Y2-YAA+(YN(NN»2 )-YA)*PC-YC 

vs 

3217 


XYK-X1*Y12-Y1*X12 

vs 

3218 


IF (KK .EO. 1) GO TO 18 

vs 

3219 


ZC--2.*'<ZCP(KP)«-ZB-MYLE(KCH)-YB)*QS*HEIGHT)*7CP(KP)47BMYIE(KCH)- 

VS 

3220 

1YB )*QS 

vs 

3221 


6E— 1. 

vs 

3222 


FCON-1. 

vs 

3223 


GO TO 19 

vs 

3224 

18 

7C-7CP(KP)+ZB4(YLE(KCH)-YB)*0S 

vs 

3225 


6E-1. 

vs 

3226 


FCON-O. 

vs 

3227 

19 

71-7N(NN»1)-ZC+ZA4(YN(NN>1)-YA)*PS 

vs 

3228 


Z2»7N(NN#2)-7C4ZA4(YN(NN,2)-YA)*PS 

vs 

3229 


XZJ»X1*Z12-Z1*X12 

vs 

3230i 


UCOM--71*Y12*(-ATT)*FCON 

vs 

3231 


YZI-Y1+Z12“Z1*Y12 

vs 

3232 


ALB1«XYK*XYK4XZJ*XZJ4B1*YZI*YZI 

vs 

3233 


R181»S0RT{X1*X1+B1*Y1*Y1+B1*Z1*Z1) 

vs 

3234 1 


R2B1«SQRT(X2*X2+B1*Y2*Y2+P1*Z2*Z2> 

vs 

3235 
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ORiGii'AL ^ 

OF POOR QUALITY 


UUBl-<X2*X12 + 81*Y2*Y12 + Bl*72*712)/B2Bl-ni*X12+Bl*Yl*Y12+8l*Tl*712VS 

D/R1B1 vs 

G1B1-(1.-X1/R181)/(Y1*Y1+Z1*Z1> *1 

62B1-(1.-X2/R2B1)/(Y2*Y2*Z2*Z2> vs 

F1»UUB1*CUC0M+XYK)*GE/ALB1 v - 

F2»(“Y2*G2B1+Y1*G1B1)*GF vs 

F3 — XZJ*UUB1/AIB1*C-1.)**N1 vs 

F4«( 72*G2B1-Z1*G1B1 )*(-l. >**N1 VJ 

IF (KZ .NE .0. ANO. IV(K ) ,FO.O) GO TO 1* v < 

IF(KF.EO.O) GO TO 14 v < 

if(ip.ne.i) go to 14 v ; 

F2— Y2*G2B1*GE V J 

F4-Z2*G2B1*(-1. >**N1 v < 

14 SIuF1^2)*OC-CF3*F4)*OSJ*SM(K,j.ISMI*GAPHA(NH)*CHCpWFH*FC J! 

BP»( C F1 + F2) *OC“CF3+F4 )*0S>*SH(K»J»ISN)*6AM(NN)*CHCI7)/FN FC V- 

BM-BM+BP V! 

A* A* A P y< 

35 CONTINUE V ' 

IF(NN.LT.NK) GO TO 16 v 

IF (NN.EO.LPANEL ) 60 TO 30 v 

IWIW + 1 v 

17*17 ♦ 1 v 

IP-IP+1 V 

HH-NH v 

IF(IWING(K) .NE.O.ANO.IW.EO. dUING(K)*l) ) GO TO 17 V 

IF (NN . EO .IP AN1 ( K ) .OR .NN . E O.LPN (K ) ) GO TO 10 
IFCYLE (IZ).LT.YK(K»IPH)) GO TO 16 

17 CONTINUE v 


VS 

3236 

vs 

3237 

vs 

3238 

vs 

3230 

vs 

3240 

vs 

3241 

vs 

3242 

vs 

3243 

vs 

3244 

vs 

3245 

vs 

3246 

vs 

3247 

vs 

3268 

vs 

3240 

vs 

3250 

vs 

3251 

vs 

3252 

vs 

3253 

vs 

3254 

vs 

3255 

vs 

3256 

vs 

3257 

vs 

3258 

vs 

3250 

vs 

3260 

vs 

3261 

vs 

3262 

vs 

326? 

vs 

3264 

vs 

3265 

vs 

3266 


NJ-0 

IF (NAS YH.EO.l. AND.IPN.LT. NCI) NJ»1 
IF(NJ.EO.l) I PN» T PN+1 
7A-ZA+(YK(K» IPN)-YA)*DSC<»IPN) 
YAA«YAA+(YK(K»IPN)-YA)*DC(K#IPN) 

IF (IWING(K ) .NE .0 .AND. IV .EO. ( I WING (K ) *1 ) ) GO CO 23 
GO TO 24 

23 IF (IVGLT(K).EO.l) GO TO 24 
10 ZA-O. 

YA“BREAK(K»1) 

YAA-BREAMK»1) 

IF (NASYM.EO.l.ANO.NN.FO.LPANl (K ) ) YA-YAP 
IF(NASYM.EO.l.AND.NN.EO.LPANlCK)) YAA» YAAP 
IF(NN.EO.LPN(K) .AND.K.LT .6) Y A»BP E AK ( K -H# 1 ) 
IF(NN.EO.LPN(K) .AND.K.LT .6) YAA-BPEAK(K+1»1) 

IF (NN. E0.LPAN1 (K) .OR . NN . E 0 . L PN ( K ) ) GO TO 24 
IF (IWGLT(K).NE.?) GO TO 24 
7A«YK(K»NC(K)“2)*DS(K.l) 


VS 3267 
VS 3263 
VS ?260 
VS 3270 
VS 327) 
VS s?7? 
VS 327? 
VS 3274 
VS 3275 
VS 3276 
VS 3277 
VS 3273 
VS 3270 
VS 32?0 
VS 3201 
VS 3282 
VS 3203 
VS 3284 
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ORICI^' 5 - PASS 'S 

OF POOR QUALITY 


YAA-YK(K,NC<K)-2>*DC(K,1) 

YA-YK(K»NC(K)-2) 

24 CONTINUE 

If(NJ.NE.l) IPN-IPN+1 

IF (NN .EO. LPANICK) .OR. NN ,EO. LPNIK ) ) IPN-1 
16 KH-0 

IF<NN.E0.LPAN1(K).AND.NN.NE.IPN(K> > KH-1 
IF (KH.EO.l.ANO.K .FO.l > IW-IW-NStK) 

• IF(KH.EQ.l.ANO.K.GT.l) I W- I W-NS ( K ) + NS ( K-l ) 

. IF(NN.EO.LPANKK) ) IP-1 

IF (NN « EO. L PN ( K ) ) IP-1 
30 IF(NN.E0.1PN(K) ) K-K+l 
' IF(KZ.NE.O) GO TO 61 

IF ( I ALP .EQ. 1) GO TO 65 
XC-O. 

IF<ICAK(L).E0.3> XC-XLE(KN) 

IF(IWING(U .NE.O.AND.I.GT.IVING(L) > GO TO 68 
IFd.EQ.l .ANO. ICAMD.EO.l) GO TO 70 

CALL ZCR( XC.YLE (KM) , C AM » IC AM, XC » l » 1, CHL ,OZDY» I ST, TS V ) 

IF (NLEF(L).EO.O) GO TO 62 

IF ( K P .GE .M JW1 ( L # J7 »NL ) . ANO .KP . LE . MJ W2 ( L» JZ»NL ) ) GO TO 60 
GO TO 62 
60 CAM-CAM+FLP(L,NL1 
GO TO 62 
70 YC-YLE (KM ) 

XC-XLE (KM) 

CALL ZCDX (XC» YC»CAM,DZDY) 

62 ALPT-SNALP(I) 

GO TO 63 
65 CAM-0. 

ALPT-1. 

• . GO TO 63 
68 CAM-0. 

ALPT-SNALP(I) 

IF (IC ANT ( L ) .EO.O) GO TO 63 

ICT-ICAMT (L ) „ . 

CALL ZCR(XC»YLE(KM),CAM,ICAM,XC»L> ICT, CHL » C7DY, 1ST, TSV ) 

IF (NLEF (L ) • EO.O ) GO TO 63 

IF (KP.GE .MJW1 (L, J Z»Nl ) • AND.KP .LE.M JW2(L, JZ,NL ) ) GO TO 4 
GO TO 63 

4 CAM-CAM«-FLP(L»NL) 

GO TO 63 

61 ZC-ZCP(KP)*ZB*( YLE(KM)-YB)*DS(L»IPM) 

YC-YBBMYLE (KM)-YB) *0C (L, IPH) 

XC-XLE(KM) 

OSS-DS ( L, TPM ) 

OCC-OC (L,IPM) 

IF(KZ.EO.IO) GO TO 52 
IF(KZ.EO.l) GO TO 64 


VS 

3265 

vs 

3266 

vs 

3287 

vs 

3288 

vs 

3289 

vs 

3290 

vs 

3291 

vs 

3292 

vs 

3293 

vs 

3294 

vs 

3295 

vs 

3296 

vs 

3297 

vs 

3298 

vs 

3299 

vs 

3300 

vs 

3301 

vs 

3302 

vs 

3303 

vs 

3304 

VS 

3305 

vs 

3306 

vs 

3307 

vs 

3308 

vs 

3309 

vs 

3310 

vs 

3311 

vs 

3312 

vs 

3313 

vs 

3314 

vs 

3315 

vs 

3316 

vs 

3317 

vs 

3318 

vs 

3319 

vs 

3320 

vs 

33 2! 

vs 

3322 

vs 

3323 

vs 

3324 

vs 

33 25 

vs 

33 ?6 

vs 

3327 

vs 

3328 

vs 

3329 

vs 

3330 

vs 

3331 

vs 

3332 

vs 

3333 
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AtPT-O. 

CST-1. 

CAM-0. 

IF (KP«6E.HJWl(l»JZ»NAL(L)).AN0.KP.LE.HJW2(l»JZ»NALtl))) CAM.FLP 
^IF(NUEo!nALCI>.AND.MJW21L»2#NALII)).EO.O) CAH-FIPILNAUIU 

60 TO 63 
6 A CONTINUE 
WBT-O. 

BX-ABS ( BK 1 
RX-ABS(RL) 

CSK- SWPP ( L» I PM 1 

PR-P 

NSS-NCS 

• ;r(”t C G;!?:JJl P !^ ( ^: C GT"o:o C oi) cm «. eT *«» C .YC.ZC.» K OSS ; OCC i|i 

1 RK.8L.HALF6.XLL.XTT.NSS, IV. IWTNG# YK » IWGLT. NASYH. NCI » DS» DC.L. BRE AK 
^ ALPT-PR* ( ZC*0S(L»IPH)+YC*0C(L,IPN)1FHALFB(1)+BX*DS(L»IPH)— RL*(XLE 
1KN» -XREF)/HALF8<1)*DS(L»IPH)+VPT 

CAN-O* 

CST-1. 

63 CONTINUE 
WN-0 . 

IF l K F .EO. 0) GO TO 93 
VK-O. 

G-0. 

IF (BK .GT. 0.011 G-GBO 
HP-1 

IF(KZ.EO.O) mp-o 

CALL FUSVOL(B#XO,YO>ZO,WN»WK#G,1,NP,CS»SS) 

93 CONTINUE 

IF(KZ.EO.O) X ( 1 5 » 1 1 -ALPT*CST-CAH*CNALP( I l+WN 
A-A/8. ♦ALPT+CST-C AM*CN AL P ( I ) +VN 
bh-bh/b.*alpt*cst+vn 
GO TO 53 

52 AA-O. 

on 56 J-1.2 
IF(J.E0.2) YC— YC 

V-VLCTYCXC, YC.ZC.XD.YD.ZD.GH.B) 

56 AA-AA+V 
W-AA 
CL ( 1 1 - W 
A-A/B.+V 

53 CONTINUE 
A-A*SRT 
BH-BN* SRT 

TT-SORT(FTAN*FTAN+BB) 

THRT1-A/(CN*TT) 
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CRIC^HAL • .... 

OF POOR QUA'l»TY 


T1-8N/(CN*TT) 

IF(KZ.EO.IO) 60 TO 54 
Atl-O. 

IF ( ABS (T1 ) • GT .0. ) All- (THRT1/T1-1. >*AIPT 
IF(ICAM(L).EQ.O) All-0. 

CO (I ) -THRT1 
IFIKZ.NE.OJ GO TO 69 

X(12#n«0.5*PI*$0RTCl.-AH*AMFC0S4FC0$J/FC0S 

CT(I)-X<12»I)*THRT1*THRT1 

FCC-1. 

IF (T1 .IT. 0.) FCC--1. 

CLII)-X<12»I)*T1*T1*FCC 

CU-CT(I) 

CM (I ) -0. 

GO TO 55 

54 CU-PI/2.*$0RT(1 •— AM*AM*FC OS*FCOS ) *THRT1*THRT1 /FCOS 

55 CONTINUE 
IF(KT.EO.O) GO TO 7* 

IF(KZ.EO.IO) GO TO 75 

IF ( ICNLECL ) .EO.O) R0C-RC(L*1> 

IF ( ICNLE (l ) • EO.l ) ROC-RC(L»l)/CHl 
IF ( ICNLE (l ) . E0.2) ROC-RC(l»I) 
ST-S0RT(1.-AM*AH*FC0S*FC0S) 

BX-ALPT^CST+ALl 

BY-O. 

AS-PI/2. 

BXX-ALPT*CST 

BYY-O. 

ASS-O. 5*PI 

IF(ABS(THRT1) .GT.O. ) B Y-B X*SORT ( 2 . ♦ROC ) *FCOS / ( ST*THRT1 ) 

BYX-BY 

BY-8Y-AL1 

AS2-0.5*PI 

BY2--BYX-AL1 

IF(ABS(BY2).LT.l.) AS2-AT AN<BY2/S0RT< 1 .-BY2*BY2>> 

ASS2-0.54PI 

BYY2--BYY 

IF(ABS(BYY2).LT.l. ) ASS2-ATAN(BYY2/S0RT(1.-BYY24BYY2) ) 
IF(ABS(BY).LT.l.) AS- ATAN < BY/ SORT ( 1 .-BY*BY) ) 

IF ( ABS (Tl). GT.O. ) BYY-BXX*SORT(2.*POC)*FCnS/<ST*Tl) 
IF(ABS<BYY) .LT.l.J ASS-AT AN(8YY/S0RT( 1 »“6YY*BYY ) ) 
C3-THRT1 

101 FORMAT (6X»I4»6F10.5) 

Al-O. 

A2"ATAN(AIPT/CNALP(I) ) 

ALSS-A2-ASS 
A33-SIN( AISS) 

All-0. 

TF(ABS(ALPT).GT.1.E-6.AN0.A2*GT.ASS) A11-T1*A33/ AlPT 


VS 

3383 

vs 

3384 

vs 

3385 

vs 

3386 

vs 

3387 

vs 

3388 

vs 

3389 

vs 

3390 

vs 

3391 

vs 

3392 

vs 

3393 

vs 

3394 

vs 

3395 

vs 

3396 

vs 

3397 

vs 

3398 

vs 

3399 

vs 

3400 

vs 

3401 

vs 

3402 

vs 

3403 

vs 

3404 

vs 

3405 

vs 

3406 

vs 

3407 

vs 

3408 

vs 

3409 

vs 

3410 

vs 

3411 

vs 

3412 

vs 

3413 

vs 

3414 

vs 

3415 

vs 

3416 

vs 

3417 

vs 

3418 

vs 

3419 

vs 

3420 

vs 

3421 

vs 

3422 

vs 

3423 

vs 

3424 

vs 

3425 

vs 

3426: 

vs 

3427 

vs 

3428 

vs 

3429 

vs 

3430 

vs 

3431 
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IFCA8SCALPTJ.GT.1.E-6.AN0.A2.LT.ASS2) A11-T1*SIN(A2-ASS21 /ALPT 

ALS-A2-AS 

A3-SINCALSJ+AL1 

ALP1-ALPT+AL1 

IF CABS CALP1J.GT.1.F-6.AND.A2.GT.AS) A1-THRT1* A3/ALP1 
IFCA8SCALP1J.GT.1.E-6.AND.A2.LT.AS2J A1-THRT1*CSINCA2-AS2)*AL1) 
1/ALP1 
THRT1-A1 
Tl-All 
FCR-1. 

IFCT1.LT. 0.) FCR— 1. 

CL(I)“0.5*PI*ST*T1*T1 /FC0S*FCR 
COtn-THRTl 

CU*PI/2.*ST*THRT1*THRT1/FC0S 
CNCI)-PI*ROC*FCOS/ST 
BO-AS 2*180. /P I 
A0«AS*1P0./PI 

C VRITECJPT.101) I#80,A0,C3»THRT1»AL1#CU 

75 CONTINUE 
CD (I ) "THRT1 
FCR-1. 

IFCTHRT1.LT. 0. ) FCR — 1. 

CSUC I ) «CU*FCR 
69 CONTINUE 
KN-KH+1 
KP-KP+NWCL.l) 

IFCI.NE.NSCL) ) GO TO 60 
IFCNV(L»2).E0.0) GO TO 80 
IFCL.EO.l) GO TO 81 
KM-KM+NS CU-NS C l-l ) 

KP-KP+CNS CL)-NS(L-l) )*NWCL # 2) 

GO TO 80 
81 KH-KN + NS C L ) 

KP»KP+NSCL)*NWCL»2) 

80 CONTINUE 

IF ( (KP+NVCL.l) ) .GT.HJW2CL.JZ.NL) ) NL-NL+1 
IFCI.EQ.NS(L) ) NL-1 

IF CIVINGCLJ.NE.O.AND.I.FO.IVINGCL ) ) GO TO 2 
IF(I.EO.NCS) GO TO 1 
IFCI.EO.NSCLJ ) GO TO 2 
IFCYLECKHJ.LT. YKCL.IPH)) GO TO 1 
2 CONTINUE 
NI-0 

IFCNASYH.EO.l. ANO.IPM.IT. NCI) NI-1 
IFCNI.EO.l) IPM-IPM+1 
7B»ZB*CYKCL»IPHJ— YB)*D$(L»IPN) 

YBB-YB8*CYK(L» IPMJ-YB >*DC CL.IPH) 

YB-YKCL.IPH) 

IF (IWINGCLJ.NE.O.AND.I.EO.IWINGCL )) GO TO 25 


VS 3632 
VS 3633 
VS 3636 
VS 3635 
VS 3636 
VS 3637 
VS 3638 
VS 3639 
VS 3660 
VS 3661 
VS 3662 
VS 3663 
VS 3666 
VS 3665 
VS 3666 
VS 3667 
VS 3660 
VS 3669 
VS 3650 
VS 3651 
VS 3652 
VS 3653 
VS 3656 
VS 3655 
VS 3656 
VS 3657 
VS 3658 
VS 3659 
VS 3660. 
VS 3661 
VS 3662 
VS 3663 
VS 3666' 
VS 3665 
VS 3666 
VS 3667 
VS 3668 
VS 3669 
VS 3670 
VS 3671 
VS 3672 
VS 3673 
VS 3676 
VS 3675 ' 
VS 3676 
VS 3677 
VS 3678 1 
VS 3679 
VS 3680 
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YB»BREAK d*l#l ) 
YBB»BREAK (L + l»l ) 

26 


IFd.EO.NSd)) GO TO 25 
GO TO 26 

25 IF (IWGLT(L).EO.l) GO TO 26 
IB-O, 

YB-BREAKCl#!) 

YBB-BREAK d*l»l ) 

IFd.EO.NSd) .ANO.L.LT. 6) 

IF(I.E0.NSd).AND.L.LT«6) 

IFd.EO.NSd) ) GO TO 26 
IF C I WGLT d ) .NE • 2 ) GO TO 
Z8-YK(L#NC(L)-2)*DSd,l) 

YBB-YKd»NCd)-2)*DCd#l) 

Y8«YK<L»NCd)-2) 

26 CONTINUE 
IF(NI.NE.l) IPM-IPN+1 
KQ-KP*NV(L»1)-1 

IF(KO.EO.LPANl(l).OR.KO.EO.LPN(L) ) IPN-1 
IFd.EO.NSd)) IPM-1 
1 IFd.EQ.NS(D) L-141 

WR ITE ( JPT» 11 ) <CD(J ),J-1,NCS) 

IF(K7.EQ.10J VRITEt JPT.ll ) XD» YD» ZD» GM 
I F ( K 7 .£0.10) WRITECJPT.il) (CL ( J ) > J-l.NCS ) 

11 FORMAT ( PF10.5 ) 

RETURN 
END 

FORTRAN NLSTIN 

SUBROUTINE GAMAX ( A W.C A »L PAN1, LP AN EL » GAMMA. BREAK .CHORDT, IWING 
l.YCN.CTIP.CTX.IWGLT.KZ.SF.IB) 

TO CALCULATE SIDE-EDGE SUCTION AND STREAMWISE VORTEX OENSITY 
DIHENS ION S E ( 3. 6. 1 ) 

01 MEN SION AV(1)»CA(1)»GAMMA(1)>BREAK(6#1)»LPAN1(1)»IWGLT(1)»IWING(VS 
111 VS 

DIMENSION CTIP(6.1)»G(6.15»2)»CH0RDT(6#1).YCN(6.1) VS 

DIMENSION A(15) »F (1 5) .THETA(15) VS 

COMMON /G EOM / HAL FS V, XCP ( 200 ) > YC«> ( 200 ) » ZCP ( 200 ) . XLE ( 10G ) . YL E ( 100 ) » VS 
1XTE(100)»PSI(30)»CHC100).XV(200).YV(200),SN(6»15»2),XN(200.2),YN(2VS 
200»2)»ZN(200»2)»WIDTH(6.5).YC0N(51)»SWEEP(100).HALFB(6)»SJ(6.31*5)VS 
COMMON /AERO/ AM» B , CL ( 50 ) . CT( 50 ) »C D ( 50 ) .CM ( 50 ) VS 

COMMON /CONST/ NC S» NC W, Ml ( 6, 5 ) . MJ W1 ( 6. 2. 5 ) . M J V2 ( 6. 2. 5 ) . NJV ( 6» 5 ) » VS 
1NFP(6) »NV(6,2) VS 

COMMON /EXTRA/ L PN ( 6) , NS ( 6 ) , ICNLF C 6 ) , ITVST( 6 ) , I ST( 6 ) , NGRP.HE IGHT, VS 

1ATT»NC(6),NWING(6).IP0S(6),IALP»DUMT(3,6,35),HAIFBH(6) VS 

COMMON /INOUT/ INPT. JPT VS 

7 FORMAT (1X.I4.8F10.5) VS 

8 FORMAT (9F10.5) VS 

9 FORMAT ( 814 ) VS 

PI-3.14159265 VS 

NASYM«YC0N(50) VS 

NSUB-CH ( 50) VS 


VS 

VS 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 


3481 

3482 

3483 

3484 

3485 

3486 

3487 

3488 

3489 

3490 

3491 

3492 

3493 

3494 

3495 

3496 

3497 

3498 

3499 

3500 

3501 

3502 

3503 
350* 

3505 

3506 

3507 

3508 

3509 
3510' 

3511 

3512 

3513 

3514 

3515 

3516 

3517 

3518 

3519 

3520 

3521 

3522 

3523 
3524i 

3525 

3526 
3527. 

3528 

3529 
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XREF-CK50) 

NK-0 

NK*LPAN1(1) . 

H«1 

00 1 I-l.NCS 
IPS1"IPOS(N)/10 
IPS2»IP0$(N)-IPS1*10 
NCW-NW(N,1)+NW(N,2) 

N A«1 
SUNI-0. 

NWW"HW ( N» 1 ) 

ISN-1 

FN«NW (N» 1 ) 

6 Nl-NWW+1 

00 2 J «1»NWW 

If If bM K 4 - I 

IF ( N A .E0. 2) KK-MK«-J 
FJ-J 

THETA ( J)-(2.*FJ-1.)*PI/(2.*FN) 

F (J) -GANNA (KK)*SN(N»J»ISN) 

2 CONTINUE 
THETA(Nl) -PI 
00 3 J«1#N1 
A( J)-0. 

FJ-J 

DO 6 K -1#NWW 

A A(J)-A(J)*F (K)*COS( (FJ-1 . )*THFTA(K ) ) 

IF <J .EO. 1) A(J)-A(J)/FN 
IF (J «NE • 1) A(J)-A(J)*2./FN 

3 CONTINUE 

00 10 K-1.N1 
KK-NK+K 

IF (NA ,F0. 2) KK-HK+K 
SUN-A( 1 )*THFTA <K ) 

00 11 J-l.NWW 
FJ-J 

11 SUM-SUM+A( J+U*SIN(FJ*THETA(K ) )/FJ 

IZ-I 

IF (NA.F0.2) I7-I*NS(N) 

SUN— 0.5*CH(IZ)*SUH+SUMI 
IF (NA .EO. 1 .AND. K .EO. Nl) GO TO 10 
AW (KK ) -SUH 
10 CONTINUE 

IF (NA .EO. 2) GO TO 31 
IF (NCW.E0.NW(N»1) ) GO TO 31 
NWV a NW ( N» 2 ) 

NA-NA+1 

ISN-2 

FN-NWV 


VS 

3530 

vs 

3531 

vs 

3532 

vs 

3533 

vs 

3536 

vs 

3535 

vs 

3536 

vs 

3537 

vs 

3538 

vs 

3539 

vs 

3560 

vs 

3561 

vs 

3562 

vs 

3563 

vs 

3566 

vs 

3565 

vs 

3566 

vs 

3567 

vs 

3568 

vs 

3569 

vs 

3550 

vs 

3551 

vs 

335? 

vs 

3553 

vs 

3556 

vs 

3555 

vs 

3556 

vs 

3557 

vs 

3558, 

vs 

3559 

vs 

3560 

vs 

3561 

vs 

3562* 

vs 

3563 

vs 

3566 

vs 

3565 

vs 

3566 

vs 

3567 

vs 

3568 

vs 

3569 

vs 

3570 

vs 

3571 

vs 

3572 

vs 

3573 

vs 

3576 

vs 

3575 

vs 

3576 

vs 

3577 

vs 

3578 
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. u i " ' 


original PAGE fs 

OF POOR QUALITY 


SUHI "SUM 
GO TO 6 
31 CONTINUE 

NK>NK+NW(N»1) 

HK«HK+NW( N*2 ) 

IF(I.NE.NS(N)) GO TO 1 
NK-LPN(N) 

HK-IPNCN) 

IF(NS(N).NE.NCS> MK -IP AN1 < N*1 ) 

1 IFd.EO.NS(N)) N-N+l 
NK1-0 

DO 999 N-1»N$UR 

ipsi-ipos(N) no 

IPS2*IP0S(N)-IPS1*10 

NK2-LPANKN1 

K2 • NC(N) 

DO 1? I-1#K2 
M-Hl ( N » I J 
FH-M 
HH-M-1 

NCV*NW(N»1)+NW(N»2) 

19 DO 14 J-l.NCW 

IF { IVING(N) ,NE.O.AND.I.EO.NWING(N ) 1 
IF(NASYM.EO.l.AND.I.EO.l) GO TO 73 
IFd.EO.NCCN) ) GO TO 72 
GO TO 71 

72 CONTINUE 
IW-1 
IPZ-1 

IFd.GT.NVINGIN) > IV-2 
IF (I .GT.NVINGCNl ) IPZ-3 
GO TO 74 

73 IV-2 
IPZ-3 

74 CONTINUE 
G(N» J» IV) -0. 

CL ( J ) *0. 

71 CONTINUE 
IK-0 
IS-0 

HAP-HALFB(N) 

AA — 1. 

BB-1 • 

FT -1 • 

BR-8RE AK ( N» I ) 

IF ( N AS YH.EO.l. AND. BREAK (N.IJ.IT.O.) 
IF ( J.GT.NV(N#1) ) GO TO 16 


GO TO 7 2 


HAB-ABS(PREAK(N»D) 


NK-NK1 


LK-0 


VS 

3579 

vs 

3580 

vs 

3581 

vs 

3582 

vs 

3583 

vs 

3584 

vs 

3585 

vs 

3586 

vs 

3587 

vs 

3588 

vs 

3589 

vs 

3590 

vs 

3591 

vs 

3592 

vs 

3593 

vs 

3594 

vs 

3595 

vs 

3596 

vs 

3597 

vs 

3*98 

vs 

3599 

vs 

360C 

vs 

3601 

vs 

3602 

vs 

3603 

vs 

3604 

vs 

3605 

vs 

3606 

vs 

3607 

vs 

3608 

vs 

3609 

vs 

3610 

vs 

3611 

vs 

3612 

vs 

3613 

vs 

3614 

vs 

3615 

vs 

3616 

vs 

3617 

vs 

3618 

vs 

3619 

vs 

3620 

vs 

3621 

vs 

3622. 

vs 

3623 

vs 

3674 

vs 

3625 

vs 

3626 

vs 

3627 
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NK-NW(N.l) 

IF (I.GT.NVING(N)) GO TO 95 



IF 

(IPS1 

.EO. 

2) 

IS 

■1 



IF 

(IPS1 

.EO. 

1) 

GO 

TO 

90 


IF 

(IPS1 

.EO. 

2) 

GO 

TO 

91 


GO 

TO 17 






95 

IF 

( I PS2 

.EO. 

1) 

GO 

TO 

92 

90 

HAB-HALFBH(NJ 






IF 

(IWGLT(N). 

EO. 

2) 

HAB' 

»WIDTH( 


IF 

(IWGLT(N). 

EO. 

2) 

BP-I 

0. 


GO 

TO 17 







91 HAB- HALFB (H ) 

GO TO 17 

92 HC*HALFBH(N)—HALFB(N) 
AA«HALFB(N)/HC 
BB-HALFBH(N)/HC 
HAB-HC 

IK-1 

FT-2. 

GO TO 17 
16 NK-NK2 

HK-NVMN.2) 

LK-NV(N.l) 

J J-J-NW (N»l ) 

IF ( I . GT.NWING ( N J 1 GO TO 96 



IF 

(IPSl 

• EO • 

1) 

IS 

-1 



IF 

(IPS1 

• EO # 

1) 

GO 

TO 

91 


IF 

(IPSl 

• EO • 

2) 

GO 

TO 

90 


GO 

TO 17 






96 

IF 

( I PS 2 

• EO, 

2) 

GO 

TO 

92 


GO 

TO 00 






17 

IF 

(J.EO. 

il.OR. 

» J • 

EO. 

<NV 

(N*l 


GO 

TO 99 







98 CONTINUE 

00 13 JP-l.HH 
FJ-JP 

YCON(JP)»COS(FJ*PI/FN) 
Y-.5*WIDTH(N»I)*(1.— YCON(JP))+BR 
13 PSI(JP)-SORT( ( BB-Y/HAB I* ( Y/HAB-AA) )*FT 

99 CONTINUE 
Ll-NK+J-IK 
12-L1+MK 
L3-L2+MK 
SH-O. 

IF(NASYH.EQ.l.AND.I.EO.l) GO TO 46 

IF (IK .EO. 1) GO TO *6 

00 *1 L0-1#HH 

LP-Ll* (L0-1)*NK 

AA-1. 


vs 

3628 

vs 

3629 

vs 

3630 

vs 

3631 

vs 

3632 

vs 

3633 

vs 

3634 

vs 

3635 

vs 

3636 

vs 

3637 

vs 

3638 

vs 

3639 

vs 

3640 

vs 

3641 

vs 

3642 

vs 

3643 

vs 

3644 

vs 

3645 

vs 

3646 

vs 

3647 

vs 

3646 

vs 

3649 

vs 

3650 

vs 

3651 ‘ 

vs 

3652 

vs 

3653 

vs 

3654 

vs 

3655 

vs 

3656 , 

vs 

3657 

vs 

3658 

vs 

3659 

vs 

36tO 

vs 

3661 

vs 

3662 

vs 

3663 

vs 

3664 

vs 

3665 

vs 

3666 

vs 

3667 

vs 

3668 

vs 

3669 

vs 

3670 

vs 

3671 

vs 

3672 

vs 

3673 

vs 

3674 

vs 

3675 

vs 

3676 
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00 42 IS»1#HN VS 

LN»ll4 (LS-1 ) *MK VS 

IF (LS .E0. LO) GO TO 42 VS 

AA-AAMBREAK(N,I)-YCP(LN> )/(YCP(LP>-YCP(LN)) VS 

42 CONTINUF VS 

41 SH»S«*AA*AW(LP)*PSHLO) VS 

6ANA0-SH VS 

GO TO 47 VS 

46 6AMA0-0. VS 

47 CONTINUE VS 

IF (IS .FO. 1) GO TO 26 VS 

IF (IVING(N).NF.O.AND.I.EO.NWING(N)) GO TO 28 VS 

IF CI.EO.NC(N)) GO TO 26 VS 

GO TO 27 

28 IF( J .GT.NW(N ,1 ) ) .AND. IPS! .EQ. 2) GO TO 27 
GO TO 26 

27 CONTINUF VS 

SN-O. VS 

00 43 L0«1#HN VS 

LP"L1* (10— 1 )*HK VS 

AA-1. VS 

DO 46 l S“1 » HM VS 

LN»L1* ( IS-l ) *NK VS 

IF (LS .EO. LO) GO TO 44 VS 

AA-AA* (BREAK (N, 1*1 ) -YC P ( L N ) ) / ( YCP t LP )-YCP (LN >1 VS 

44 CONTINUE VS 

43 SM»SM4AA*AV(LP)*PSI(L0) VS 

GA"AN-S8 * VS 

GO TO 30 VS 

26 GANAN-O. VS 

30 00 IB K-1,H8 VS 

LI-NK4 (K-1)*NK*J-LK VS 

TAN- (XN(LL»2)-XN(LL»1))/(YN(LL*2)-YN(LL»1) ) VS 

CA(LL)-0. VS 

DO 20 KK-1 »NH VS 

LI-NK*(KK-1)*NK+J-LK VS 

IF (KK .EO. K) GO TO 22 VS 

CA(LL>-CA(Ll)*2.*(-l.)**(K4KK>*AV(lI>*PSI(KK)/(VIDTH(N,I>*(YC0N(KKVS 
l)-YCON(K))) VS 

GO TO 20 VS 

22 CA(LL)-CA(LL)4AW<LL)*PSI(K)*YC0N<K)/<WIDTH(N,I)*SJ(N,K,I)4$J(N, VS 
IK, I)) VS 

20 CONTINUE VS 

IF (IK .EO. 0) FK-YCP(LL)/(HAB*HAB> VS 

IF (IK.EO.l) FK«— (l.-2.*(YCP(LL)-HALF8(N))/HABI/(0-5*HAB) VS 

CA(LL)»CA(LL>+GAHA0*(-1.)**K/(1.-YC0N(K))/VIDTH(N,I>-6AMAN4(-1. )**VS 
1(N4K)/(1.4YC0N(K))/VIDTH(N,I)4AV(LL)*FK/PSI(K) VS 

CA(LU»CA(LL)/PSI(K ) VS 

IF (IWING(N).NE.O.AND.I.EO.NVING(N)) GO TO 5l VS 

IF (I.EO.NC(N)) GO TO 50 VS 

IF(NASYM.EO.l.AND.I.EO.l) GO TO 50 VS 

GO TO 18 VS 


165 


3677 

3678 

3679 

3680 

3681 

3682 
36N3 

3684 

3685 

3686 

3687 

3688 

3689 


3690 

3691 

3692 

3693 

3694 

3695 

3696 

3697 

3698 

3699 

3700 

3701 

3702 

3703 

3704 

3705 

3706 

3707 

3708 

3709 

3710 

3711 

3712 

3713 

3714 

3715 

3716 

3717 

3718 

3719 

3720 
3721. 

3722 

3723 

3724 

3725 


I 



Ik 


24 

23 


76 

77 


51 IF(J.GT.NW(N,1 ) .AND. IPS! .EQ.2) GO TO 18 

30 CONTINUE M 

IF (CH0R0T(N»I8I).IE»0.001) GO TO 18 

IF(NASYH.EO.l.AND.I.EO.l) GO TO 78 „. #M . YrnN(K) ) 

GIN*J#IW>»GCN#JfIW)*AW(Lt)*ESI(K)*(—l*) **IN*N) / C1«*YC0N|K 1 ) 

18 CA(U>*TAN*GAH8A(ll>+CA(lU 
IF CJ.E0.NWCN#1)) NKl-Ll 

IF (I.EO.NC(N)) GO TO 23 .. „„ __ 

IF UVINGlNl.NE.O.ANP.I.EO.NVINGtN)) GO TO 24 
IF(NASYN. EO.l .AND.I .EO.l ) GO TO 23 

GO TO 14 

IF(J. GT.NW(N.l). AND. IPS! . EQ.2) GO TO 14 

IF (CHORDT(N# IP 7 ) .LE.0.0011 GO TO 14 

6(H» J» IW) •2*/MI0TH(N» I J»IUk*0»5* t— 1. k**k , *GAM#H/UIOTM(N»I) 
STEEL.. « ( N,4.IV|.GtK.J.!WI*S0«T(H»»lf2.«2*‘2212‘ 

IF (IK. EO. 1» G(N.J>IW)»G(N»J>IW)*S0RT(HAB)/4. 

IF (IW.E0.2) OUHT ( IB »N » J 1 «G(N» J»IW) 

IF(IW,E0.2) GO TO 14 

IF ( IWING (N ) »NE .0) GO TO 83 

86 SECIB.N. J1»G(N* J#IW) 

83 IF (IPS1.E0.2.AND.J.GT.NVCN#1)) GO TO 87 
IF(IPSl.EO.l) GO TO 87 
GO TO 86 

87 SE(IB»N»J)-0. 

G(N.J.IU)-0. 

1A CONTINUF 

NK2-LI 
1? CONTINUE 
NKl-lPNlN) 

099 CONTINUE 

IF(K7.NE.O) RETURN 
CTP-O. 

CTX-O. 

SUNN-O. 

JP-0 

NN-0 

00 1000 N-l #NSUR 

HK-LPANl(N)-NV<N> 1) 

KCH-NS (N) ♦NH 
NCW«NW(N*U+NW(N»2) 

If"nC(N1.NE.NWING(N)1 IW2 

IF (N AS YM. EO.l 1 IW-2 
00 64 K-lfIW 


VS 3726 
VS 3727 
VS 3728 
VS 3729 
VS 3730 
VS 3731 
VS 3732 
VS 3733 
VS 3734 
VS 3735 
VS 3736 
VS 3737 

VS 3738 
VS 3734 
VS 3740 
VS 3741 
VS 3742 
VS 3743 


VS 

3744 

vs 

3745 

vs 

3746 

vs 

3747 

vs 

3748 

vs 

374« 

vs 

3750 

vs 

3751 

vs 

3752 

vs 

3753 

vs 

3754 

vs 

3755 

V? 

3756 

vs 

3757 

vs 

3758 

vs 

3754 

vs 

3760 

vs 

3761 

vs 

3762 

vs 

3763 

vs 

3764 

vs 

3765 

vs 

3766 

vs 

3767 

vs 

3768 

vs 

3764 

vs 

3770 

vs 

3771 

vs 

3772 


VS 3773 
VS 3774 
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ORIGINAL PACE IS 
OF POOR QUALITY 


ctimn#kj-o. VS 

IP7-1 VS 

IF f K .EO. 2 ) IPZ“3 VS 

IF (CHORDT(N,IPZ> .IE. 0.001) GO TO 66 VS 

WRITE ( JPT, 66 ) VS 

WRITE (JPT, 67) VS 

66 FORMAT ( /50H CHORDWISE DISTRIBUTION OF TIP SUCTION COEFFICIENT) VS 

67 FORMAT (/5X.3HX/C.6X.6HCTIP) VS 

CH0»CH0R0T(N,IP2)+CH0R0T(N,IP7*1) VS 

, IFCK.F0.2) GO TO 105 VS 

IF(IWING(N).EQ.O) GO TO 105 VS 

IN«KCH-NS(N)«-IVING(N) VS 

IM-MK—(NS(N)— IWING(N) )*NV(N»1) VS 

GO TO 106 VS 

105 IN-KCH VS 

IM-MK VS 

106 CHORD-CH(IN) VS 

IF(NW(N,2).E0.0) GO TO 107 VS 

II-NS (N)+IN VS 

IFIN.GT.l) II“NS(N)-NS(N-1)+IN VS 

CHORD “CHORD ♦CHI II ) VS 

107 CONTINUE VS 

00 65 I-l.NCV VS 

J-IM+I VS 

IF(I.LE.NW(N, 1) ) GO TO 10* VS 

TK-NS(N) VS 

IFCN.GT.1)IK-NS(N)-NS(N-1) * VS 

IF( IVJING(N) .NE .O.AND.K.EQ.l ) IK-IUING(N) 

U“LPAN1(N)^NW(N,2)*(IK-1 ) + I-NW(N,l) VS 

GO TO 109 VS 

108 U“J VS 

109 CONTINUE VS 

XC“CXV(LL)-XLE(IN) )/CHORD VS 

CTOIS-O. VS 

IF (K .EO. ?) GO TO PO VS 

IF ( I *S1 .FO. 2 .AND. I .GT. NW(N,1)) GO TO 65 VS 

IF (IPS1 .EO. 1) GO TO 65 VS 

PO CONTINUF VS 

CTDIS“2.*PI*G(N»I»K)*G(N»I»K)/CHD VS 

65 WRITE (JPT. 8) XC.CTDIS VS 

SUM-0. VS 

ISN-1 VS 

FN«NW(N,1) VS 

CHD-CH0PDT(N,IP7) VS 

00 61 I-l.NCV VS 

FCR-1. VS 

IF (G(N.I.K).LT.O.) FCR— 1. VS 

J-I VS 

Xl-YCN(N.IPI) VS 

IF (K .EO. ?) GO TO PI VS 


3775 

3776 

3777 
377P 

3779 

3780 

3781 

3782 
3TP3 
3786 

3785 

3786 
37P7 

3788 

3789 

3790 

3791 

3792 

3793 
3796 

3795 

3796 

3797 

3798 

3799 

3800 

3801 


3P02 

3803 

3806 

3805 

3806 

3807 

3808 

3809 

3810 

3811 

3812 

3813 
3816 

3815 

3816 

3817 

3818 

3819 

3820 

3821 

3822 

3823 
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AND. I.GT.NW(N.l) ) 60 TO 61 
GO TO 61 


68 


61 


64 


IF (IPS1 .EG. 2 
IF CIPS1 .EO. 1) 

61 CONTINUE 

IF (I.LE.NW(N.l) ) GO TO 68 
ISN»2 

FN-NW(N»?) 

J-I-NW(N.l) 

X1«YCN (N# IPZ+1 ) 

CHD-CH0RDT(N»IP?*1) 

FJ « J 

XM ■ XI ♦ 0.5*CHD*(1.-COS( (2.*FJ - 1. )*PI/(2.«FN) )) 

XM-XM-XREF 

SUN«SUN+CHO*G(N#I#K )*G(N#I»K) *SNCN# J# ISN)*FCR/FN 
CTX-SUH+CTX 

CTIP (N»K ) •SUM*Pr*PI/(2,*HALFSW) 

CTP-CTP+CTIP(N,K ) 

CONTINUE 

;^i£VS R 5I* M 2 l »-« T - 0 - OM - W -WW'>T«H.3I.G T .0.001) JP-JP + 1 
IF(NW(N#2).NE.0.AND.N.FO.l) MM»MM+NS(N) 

IF (NV <N» 2 ) .NE.O. AND.N.GT.l ) MM-MM+NS (N )-NS (N-l) 

1000 CONTINUE 

IF(ABS(CTX).LE. 0.00001) GO TO 82 
IF (JP.NE.O) CTX-SUMM/CTX 
82 CONTINUE 
CTX— CTX 

WRITE (JPT.62) CTP 

62 £S?«J,ir 2 ^, T !?v SUCTI0N COEFFICIENT-. F10.5,2X,15HC0NE 

WK 1 1 t i J P T t 7 5 I CTX 

75 WRITE 1 (JPT H 6o 7 E x “COORDINATE OF CENTROID OF TIP SUCTION 
69 F0RNAK/8H ELEMENT. 2X# 3HY/S.6X# 5HGAMHA* 5X. 5HGAMAX ) 

N* 1 

DO 35 I-l.LPANFL 
ETA-YVU)/HALFB(N) 

WRITE ( J PT* 7 ) I. ETA. AW ( I ) .CA ( I ) 

35 IFtl.EQ.LPN(N)) N-N + l 
RETURN 
ENO 

FORTRAN NISTIN 

iSUBROU-nNE AUGV0R(AV#CA,GANNA,GN,LPANEL*X2,Y2#Z2*B2#Z7CP,XCP#YCP 

REWIND X 02 AWtl >»CA(1) .GAMMA ( 1 ) » ZZC P< 1 ) , XCP <1 > » YCP tl )# W( 2 ) 

3 FORMAT (10F10.5) 

DO 1 I -1# LPANEL 
00 2 K-1.2 
F-l. 


SIDE ONLY) 
-»F10.5) 


VS 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

)VS 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 




3824 

3825 

3826 

3827 
382A 

3829 

3830 

3831 

3832 

3833 
3334 

3835 

3836 

3837 

3838 

3839 

3840 

3841 

3842 

3843 

3844 

3845 

3846 

3847 

3848 

3849 

3850 

3851 

3852 

3853 

3854 

3855 

3856 

3857 

3858 

3859 

3860 

3861 

3862 

3863 

3864 

3865 

3866 

3867 

3868 

3869 

3870 

3871 

3872 
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u o u 


ORIGINAL FAGS IS 
OF POOR QUALITY 


IFCK.EQ.2) F«-l. 

X-XCPII) 

Y-YCP(I)*F 

2-22CPCI) 

V(K)»VLCTYCX» Y»Z»X2»Y2»Z2»GH»B2) 

IF IN 7 • EO. 0) CA ( I ) "M (1 ) +M 1 2 ) 

IF (N? . EO.l ) CA ( I ) *W (1 )**W (2) 

IFCNZ.EO.O) GO TO 15 
DO 16 J-l/LPANFl 
REA0C02) ( AW (k)#K«l»L PANEL) 

CONTINUE 

DO 5 I *1 » LPANEL 

IFCNZ.EO.O) GANHACD-O. 

HEAD C 02) IAW(K1#K-1»LPANEL) 

DO lt> J-1#LPANEL 
GAMMA(I)-GAMMA(I)-AW( J)*CA( J) 

CONTINUE • 

RETURN 

END 

FORTRAN NLSTIN 

SUBROUTINE SPNINT t Nl# N2 » NS# CSC* SJ * SWEEP# Ml# X# GH» WIDTH* GW) 
COMMON 7 1 NOUT / INPT»JPT 

DIMENSION NS<1J#CSC(1)*SJ(6»31»1)*SWEEP<1)*H1(6*1)#X<15»1 
1»1> 

>I«3. 14159265 
N-NS(l) 

GN«0. 

GV-0. > 

KC-1 

kll«d 

tFCNl.GT.l) KC-2 
IF (Nl . GT« 1 ) KU-N1-1 
DO 1 I “1 » N 

IFCI.6E.N1.AND.I.LE.N2) GO TO 5 
GO TO 1 
* KL-I-KlL 

FM«M1 (1»KC) . 

AA-SJ ( 1#KL#KC 1/FM 
GM-GM+CSC (I)/X(15»I)*AA 
GW-GU+CSC (I)*AA 

1 CONTINUE 

GM.«0.25*PI*WIDTH(1»KC)*GN 
GW-GM*0.5*WI0TH(1,KC)*PI 
MR ITF ( j PT» 2 ) (X(15»I)»I"1»N) 

WRITE ( JPT»2) GM» WIDTH tliKCli GW 
WRITE ( JPT.2) (CSC Cl )* I»1#N) 

2 FORMAT (5X»10F10«5) 

. RETURN 

END 


VS 

3873 

vs 

3874 

vs 

3875 

vs 

3876 

vs 

3877 

vs 

3878 

vs 

3879 

vs 

3880 

vs 

3881 

vs 

3882 

vs 

3883 

vs 

3884 

vs 

3885 

vs 

3886 

vs 

3887 

vs 

3888 

vs 

3889 

vs 

3890 

vs 

3891 

vs 

389? 

vs 

3093 

vs 

3094 

6VS 

3895 

vs 

3896 

vs 

3897 

vs 

3890 

vs 

3899 

vs 

3900 

vs 

3901 

vs 

3902 

vs 

3903 

vs 

3904 

vs 

3905 

vs 

3^06 

vs 

3907 

vs 

390? 

vs 

3909 

vs 

3910 

vs 

3911 

vs 

3912 

vs 

3913 

vs 

3914 

vs 

3915 

vs 

3916 

vs 

3917 

vs 

3910 

vs 

3919 

vs 

3920 

vs 

3921 
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ORIGINAL FAGS IS 

OF POOR QUALITY 


f OUTRAN NLSTIN vs 

SUBROUTINE LATFRL(GANHA»AW,CA»lAT»LPANEL#lPANl#OF,NAL#YK»DS»DC»IWIVS 
lNG,IWGLTfNALP»ALP,GAMP»GAMB»GAMR,CP»GAMX»BREAK ,CH0RDT# YCN, vs 

2SNALP,CNALP,DZY,NLEF#NC1#SWPP#IBIC#CFF#IV#ICAH#ICAMB#KT#PC#$E#ICAHVS 

3T#NVLt#NVL2,DMM» Z7C P» MZ , N AUG ) VS 

TO CALCULATE THE EFFECT OF LATERAL ANO OIECTTONAL NOTIONS VS 

DIMENSION NVlim,NVL2(l)#DMM(l),ZZCP(l> VS 

Of PENSION 0ZY(l)#SVPP(6»l)#IV(l)#LPANl(l)#NAL(l)#IVINGm»IWGLTCl )VS 
1#NL£F{1),ICAM(1),RC(6,1)#SE(3#6,1)#ICAMT(1) VS 

DIMENSION GAMMA(1),AV(1),CA(1),DF(6,1),YK(6»1)»0$(6»1) V« 

DIMENSION DC(6»1>»GAHP<1),GAN8(1)#GANR(1)#CP(1)#GAHX(1)#PREAK(6#1)VS 
1»CH0R0T<6,1) ,YCN(6,1),SNALP(1),CNALP<1) VS 

COHHON i/GEON/ HALFSW»XCP(200)»YCP(200)»ZCP(2C0)»XLE(100)»YLE(100)»VS 
1XTEC100)#PSI(30),CH(100) , XV (200), YV( 200)# SN(fr, 15.2 ),XN (200,2) »YN(2VS 
?Op,2),ZN(200,2) ,VIDTH(6,5)#YCON(il)#SWEEP(100)»HALFB(6)#SJ(6#31,5)VS 

COHHON /CONST/ NC S, NC W,H1 ( fr , 5 ) , HJ VI ( 6, 2 , 5 ) , H JW2 ( 6# 2, 5 ) , N J W ( 6, 5 ) , VS 
1NFP( 6 ) , NW (6,2) vs 

jCOH.HON /SC HE HE/ C ( 2 ) # X ( 1 5# 41 ) # Y ( 1 5 » 41 ) # SLOPE ( 15 ) , XL ( 2# 1 5 ) » XTT ( 4 1 ) # VS 
1XLLU1) v$ 

COHHON /AFRO/ AM, B, CL ( 50 ) , CT ( SO ) , C 0( 50 ) , CH ( 50 ) VS 

COMMON /EXTRA/ LPN(6)»NS(6)»ICNLF(6)»ITWST(6)»ISP(6)»NG?P»HFIGH7, VS 
1 ATT, NC (6),NWING(6),IP0S(6),IALP,DUHT(3»6#15)#HALFBH(6) VS 

COMMON/BETA/ GNAX(50)»XTG(50)»YTG(50)»ZTG(*0)»P2#N(*G»CTG(1*)»$TC(1V < 
15)»0IST*PP,BKK,RLL,CFFK ' 

COMMON /FUS/ XF(20),XCF(20)»PF{20),SNP(5,20)#XIEF#XTEF»UARD(20), 
1NCUM *NF,NT»CSF(5,10),XAS(6)»NKF(5),F0,F10,KF,NTL»LVF,WKN,PDX,XU 

: COMMON /INOUT/ INPT.JPT 

01 MENS ION Ol'M ( 200) » OUMY ( 200) ,DUMZ ( 200) ,DUMS ( ?00 ) , DUMC ( 20C ) 

DIMENSION DUMX ( 200 ) 

Li-LVFVl 
NSUR-tM(50) 
naSymVycqn(50) 

GMAX ('50 ) -CL ( 50 ) 


Pi-3, 14159265 
IF(LAT.EO.l) GO TO 30 
REVIND 01 

READ (01 ) (DUM(I),I-1,LVF) 
RF AO ( 01) ( AW ( I ), I-l.LVF) 

A V ( L 1 ) • 0 . 

DO 5 I-l.LWF 

GAMMA (I )-~AW(I+l)/AV(l) 

NJ-LWF-1 

MM-NV ( 1,1) 

17-1 

L-l 

DO A TJ-2.LVF 
NN -N W ( L , 1 ) 

J7-1 
NX -2 


VS 

VS 

VS 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 


3922 

3923 

3924 

3925 

3926 
302? 

3928 

3929 

3930 

3931 

3932 

3933 
393 A 
3915 

3936 

3937 

3938 

3939 

3940 

3941 

3942 

3943 

3944 

3945 

3946 

3947 

3948 
394° 

3950 

3951 
305? 
3953 
39.54 
395 5 

3956 

3957 
39DP 
3 9 SO 
3960 
3061 
3962 
3063 
3964 
3065 

3966 

3967 

3968 

3969 

3970 
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IP (NLEF(L).EO.l) J7-2 VS 

IP (NLEF(U .E0.1 ) NX-1 VS 

READ ( 01 ) (0UM(K)#K-1#LWF) VS 

REAO(Ol) ( AW ( K ) » K -1 * L WF ) VS 

awcld-o. VS 

IF d J • GT. L PANEL ) GO TO 2 VS 

IF(NAL(L) .EO.O) GO TO ? VS 

IFdJ .GF.MJWKL. J7,NAL(l ) ).AMD.IJ.LE.MJW2(L» J7#NAl(L) ) ) GO TO 10 VS 
IFIIJ .GE.MJW1(L»NX,NAL(L) ) . AND. I J . IE .M JW2 { L * NX» NAU L ) ) ) AW (LI) -OF {VS 
lUNAKU) VS 

IF (NLEF(L).EO.l.ANO.IJ.FO.MM) AV { LI ) -0. 5*DF ( L , NAL ( l ) ) VS 

GO TO 2 VS 

10 IF (IJ.FO.MH.AND.NLEF(L).EO.O) AW ( LI ) -0. 5*DF< L#NAL ( L ) ) VS 

IF (NLEF (L ) . EO.l ) GO TO 2 VS 

IF (MJW1 ( L » 2# N AL (L ) ) . F 0 . 0 ) A W( 11 ) -DF ( L » N AL (l ) ) VS 

2 IK -I J VS 

AW (LI ) -AW (L1)*CNALP(I7) VS 

C VRITFt JPT.15) IJ.AW<L1)»CNALP(I7) VS 

CALL VMSEON < N J , I K , AW » GAMMA ,C A) VS 

NJ-NJ-1 VS 

IFdJ.GT. LPANEL ) GO TO A VS 

IF(IJ.GF.LPANl(L).AND.IJ«LT«LPN(l )) NN-NW(L*2) VS 

IFCIJ.LT. MM) GO TO 3 VS 

mm-hm+nn vs 

1 7-1 Z ♦ 1 VS 

3 CONTINUF VS 

IF(IJ.NE.LPAN1(L ) ) GO TO A VS 

IFdJ.EO.LPN(L) ) GO TO A VS 

IF(L.EO.l) IZ-1 VS 

IFIL.GT.1) IZ«I7-NS(L)+NS(L-1) VS 

A IF (IJ.EO.LPN(L)) L-L+l VS 

KZ-2 VS 

CALL THPUST(LPANEL»GAMMA»SNALP»LPAN1,ICAM,ICAME»NLFF,NAL.IV»IWING VS 
1»YK,0C, DS.CA» IUGLT#K7.0.»0.»0.»CNAL p »DF#N<*i > KT»RC»ICAPT»SWPP#I6LC»VS 
2YC0N, BREAK) VS 

CALL GAMAX ( A W * C A t L PAN1 / L PANFL # GA MMA> BR FAI'#CHOPOT» I VTNG# YCN» VS 

1SL0PE,CTX,IWGLT,KZ,SF»2) VS 

C WRITE (JPT, 17) (CD(K )»K-1,NCS) VS 

C WRITE < JPT#17) (SE(2»1#K)#K-1#NCW) VS 

RFTURN VS 

30 KZ-1 VS 

BK-0 • VS 

P-PP VS 

6B0-0. VS 

GRO-O. VS 

FPC-2.2*S0RT(CFF) VS 

XREF -C L ( 50 ) VS 

RL-O. VS 

L-l VS 


3971 

3972 

3973 
397A 

3975 

3976 

3977 
397B 

3979 

3980 
3961 

3982 

3983 
398A 

3985 

3986 

3987 

3988 
3969 

3990 

3991 

3992 

3993 
399A 

3995 

3996 

3997 

3998 

3999 
AOOO 
A001 
A002 
A003 
AOO A 
A005 
A006 
A007 
A008 
A0C9 
A010 
A01 J 
A012 
*013 
*01 A 
A01 5 
A016 
*017 
*018 
A019 
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KH»1 

VS 

4020 


00 37 1*1, NCS 

VS 

4021 


NW*NV<1,1> 

VS 

4022 


IF(NV(L,2).NE.O) NVW*NW(l,2> 

VS 

4023 


IF(L.EO.l) IST*0 

VS 

4024 


IFU.NE.l .AND. NV(l,2) .F0.0) IST-LPNCl-l) 

VS 

4025 


IF (NW ( L, 2) *N£ .0 ) IST-LPANKl) 

VS 

4026 


11*0 

VS 

4027 


IF(l.GT.l) IL-NSU-l) 

VS 

4028 


GHAX(I)-0. 

VS 

4029 


MK-IST'MI-IL-l)*NVy 

VS 

4030 


IK«KH 

vs 

4031 


IF<NW<l,2).NE.0> IK-KH+NSCL) 

vs 

4032 


00 3* L0-1»NVW 

vs 

4033 


LP-HK+LO 

vs 

4034 


AA-1. 

vs 

4035 


DO 30 L$-1#NVW 

vs 

4036 


LN-MK+LS 

vs 

4037 


IF(LS.EO.LO) GO TO 39 

vs 

403B 


AA-AA* (XTE(IK)-XVCLN) )/(XVCLP)-XV(LN) ) 

vs 

4039 

39 

CONTINUE 

vs 

4040 

101 

FORMAT (5 (6X» 14 ) ) 

vs 

4041 

38 

GHAX( n-GMAXm+AA*GAMX(LPl 

vs 

404? 


KM-KM4-1 

vs 

4043 


IF(I.NE.NS(L) ) GO TO 37 

vs 

4044 


IF<NW(t,2).E0.0) GO TO 37 

vs 

4045 


IF(L.EO.l) KM-KM + NSU.) 

VS 

4046 


IF(L.GT.l) K**KH+NS(l)-N$(l-l) 

vs 

4047 

37 

IF ( I .FO.NS ( L ) ) l-l + l 

vs 

404B 


WRITC ( JPT.17) (G**AX(I),I*1,NCS) 

vs 

4049 


IF(MZ.EO.O) GO TO 31 

vs 

4050 


X2-SL0PE115) 

vs 

4051 


Y2*SL0PE ( 14) 

vs 

4052 


72«Sl OPE ( 13 ) 

vs 

4053 


GM-SL0PE(12) 

vs 

4054 


GH-SLOPE(ll) 

vs 

4055 


72-0. 

vs 

4056 

31 

CONTINUE 

vs 

4057 


00 35 1-1,3 

vs 

4058 


HH-NW(1,1) 

vs 

4059 


IPN-1 

vs 

4060 


IPM-0 

vs 

4061 


IU-1 

vs 

4062 


11*1 

vs 

4063 


ZB*0. 

vs 

4064 


YB* B REAK (1,1) 

vs 

4065 


YBB* BREAK (1,1) 

vs 

4066 


IF(NASYP.EO.O) GO TO 80 

vs 

4067 


YB*YK ( 1 ,NC1 ) 

vs 

4066 
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ORSCrw. ... 

OF POOR QUALITY 


YRRaYA UC 

IF (NCI « EO .1 ) GO TO 80 VS 

NCll-NCl-1 VS 

00 81 J«1#NC11 VS 

ZB-ZB-MYMl# J)-YK(lt J+l) )*DS(1» J+l) VS 

81 YB8-Y0B+(YK(lf J)-YK(lf J+l))*DC(lfJ+l> VS 

YB-YK(1»1» VS 

80 CONTINUE VS 

YBP-YB VS 

Y8BP-YBB VS 

IF(I.NE.l) REWIND 03 VS 

L-l VS 

C WRITE (JPT»102) I VS 

102 FORMAT <2X#7HTESTINGf 14) VS 

00 6 IJ-1#LVF VS 

CSK-SWPPCl, IPN) VS 

IF (IJ .GT. (.PANEL ) GO TO 21 VS 

NN-NW(Lfl) VS 

YC*YBB4(YCP(IJ)-YB)*DC(L»IPN) vs 

7C-ZCP (IJ)+7BMYCP(IJ )-YB)*DS(L»IPN) VS 

XC«XCP(IJ) VS 

WBT-O. VS 

DSS-OS(Lf IPN) VS 

DCC* DC ( L# IPN) VS 

IF(I.NE.l) CALL WBETA(XC»YC»ZC»WBT»DSS#0CC»8K»SL#HALFB#XLL»XTT»WCSVS 
1 tIVf IWINGf YK, IWGLTf NASYM#NCl#DSf PCf Lf BREAK) VS 

PHI-ATAN(PZY( IJ ) ) - VS 

COSP-COS(PHI) VS 

SINP-SIN(PHI) VS 

SPHI-OS(LfIPN)*COSP+SINP*OC(Lf IPN) VS 

PR »P VS 

IF (IBLC .EO. 1) PR-P*(1.-CSK*FPC) VS 

CA ( I J ) ■PP*(ZC*DS(L#IPN)+YC*OC(Lf IPN) ) /HALF B ( 1 )*BK*S PHI-RL* ( XC P ( IJ )VS 
1-XREF WHALFB(1)*SPHI+WBT VS 

WN»0. VS 

IF(KF.EO.O) GO TO 20 VS 

WK-O. VS 

G-0. VS 

CALL FUSVOL (B.XCfYCf 7C»WN,WK,Gf lflfDCCfOSS) VS 

GO TO 20 VS 

21 II-IJ-LPANEL VS 

CA (I J ) «0. VS 

WN-O. VS 

IF(II.GT.NF) GO TO 20 VS 

XS-XCF (II )-XTEF VS 

XB«XCF (II J-XLEF VS 

IF(II.EO.NF) RFL-O. VS 

IF(II.NE.NF) RFL«XS/SORT(XS*XS+B*RF(II)*RF(II)> VS 

RF1-XS*(1.+RFL) VS 


4069 

4070 

4071 

4072 

4073 

4074 

4075 

4076 

4077 

4078 

4079 

4080 

4081 

4082 

4083 

4084 

4085 

4086 

4087 

4088 

4089 

4090 

4091 

4092 

4093 

4094 

4095 

4096 

4097 

4098 

4099 

4100 

4101 

4102 

4103 

4104 

4105 

4106 

4107 

4108 

4109 

4110 

4111 

4112 

4113 

4114 

4115 

4116 

4117 
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RF 0 »XB*<l. + Y8/S0RT<Xe*XB*B*RF<II)*RFCin>l VS 

VN»(-BK+Rl*XCF(II)/HALF8<l))*RF(II)*RF(II)“< RF1-RF0)*<6B0+RL*6R0) /VS 
1<4.*PI) VS 


20 CA<IJ)-CA<IJ)*VN 
15 FORMAT (1X»I4»2X*8F10.5) 

IF < I J . GT. LPANEL ) GO TO 6 
IF(I.NE.l) GO TO 11 

OUMIJ )«DC(L.IPN)*CO$P-DS(L»IPN)*SINP 
DUNS ( I J ) ■ SPHI 
OUHC< IJ)-CNALP(IW) 

DUHY ( I J ) ■ YC 
DUH2 ( I J )«ZC 

DUMXt I J)«SNALP< IV)*SPHI 
11 CONTINUE 

IF (IJ .GE.LPANl(L) .ANO.IJ.LT.LPN(L) ) NN-NV<1,2) 
IFCIJ.EO.LPNU ). ANO.IJ.LT. LPANEL) NN-NW(L-H»1) 

IF <IJ.LT.HH) GO TO 8 
HH-HH+NN 


VS 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

v<? 


IL-IL+1 VS 

IW-IW+1 vs 

IF tIVlNG(L1»NE.0.AND.IW.E0.(IVING(L)*l)) GO TO 7 VS 

IF(IJ.EO.LPANKL) .OR . I J . EO.LPN l L ) ) GO TO 16 VS 

IF(YLE(IL).LT.YK(L*IPN)) GO TO 8 VS 

7 CONTINUE VS 

NI-0 VS 

IF(NASYH.E0.1. ANO.IPN.LT. NCI) NI-1 . VS 

IF(NI.EO.l) IPN-IPN+1 VS 

7B-7B+(YK(L.IPN)-YB)*OS(l»IPN) VS 

YBB»YBB+(YK(L»IPN)-YB)*OC(L»IPN) VS 

YB*YK ( L » I PN) VS 

IF (IVING(L).NE.0.AN0.IW.E0.(IVING(L)+1)) GO TO 22 VS 

GO TO 23 VS 

22 IF ( I WGLT (L).EO.l) GO TO 23 VS 

16 78-0. VS 

YB"BRF AK ( L * 1 ) VS 

YBB«BREAK (L»l ) VS 

IFCNASYH.EO.l.AND.IJ.EO.LPANl(L) ) YB-YBP VS 

IF(NASYM.E0.1.AND.IJ.E0.LPANl(l)) YBB-YBBP VS 

IFCIJ.EO.LPNfL ) . AN0.L.LT.6) YB-BRE AK ( l +1 , 1 ) VS 

IF(IJ.EO.LPN(L ) .AN0.L.LT.6) YBB -BR E AM L +1» 1 ) VS 

IF(IJ.EO.LPAN1<L).OR.IJ.EO.LPN(L)) GO TO 23 VS 

IF(IVGLT(L).NE.2) GO TO 23 VS 

ZB-YK(L»NC<L)-2)*0S(L,1> VS 

YBB-YK(L#NC(L)-2)*0C<L»1) VS 

YB-YK(L#NC(L)-2) VS 

23 CONTINUE VS 

IFCNI.NE.l) IPN-IPN+1 VS 

IF CIJ.EO. LPANKL).OR.IJ.EO.LPN(L)) IPN-1 VS 

8 CONTINUE VS 


4118 

4119 

4120 

4121 

4122 

4123 

4124 

4125 

4126 

4127 
412B 

4129 

4130 

4131 

4132 

4133 

4134 

4135 

4136 

4137 
413R 

4139 

4140 

4141 

4142 

4143 

4144 

4145 

4146 

4147 

4148 

4149 

4150 

4151 

4152 

4153 

4154 

4155 

4156 

4157 

41 5 p 

4159 

4160 

4161 

4162 

4163 

4164 

4165 

4166 
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ORIGINAL P/: ; 

OF POOR QUAUl'V 



KH-0 

VS 

4167 


IF(IJ.EO.LPANl(L)»AND.IJ.NEtLPN(L)) KH-1 

vs 

4168 


IF(KH.EO.l.ANO.L.EO.l) IL-IL-NS(L) 

vs 

4169 


IF(KH.E0.1.AND«L.GT.l ) IL -1L-NS CL ) +NS Cl— 1 > 

vs 

4170 


IF(KH.EO.l.AND.L.EO.l) IW-IW-NS(L) 

vs 

4171 


IF(KH.EO.l.AND.L.GT.l) I W-IV-NS (L ) ♦NSd-l ) 

vs 

4172 


IF(IJ.EO.LPN(L).AND.HW(L,2).NE.O) KH-2 

vs 

4173 


IF(KH.E0.2.AND.L.E0.1> Il»IL+NS(L> 

vs 

4174 


IF(KH.E0.2. AND.L.GT.l > IL"IL*NS(L) -NS ( L-l ) 

vs 

4175 

6 

IF(IJ.FO.LPN(L) ) l-t>l 

vs 

4176 


IF(I.E0.2) WR ITE ( JPT»17) (CA( IJ ) » I J-1*LWF ) 

vs 

4177 


REUINO 02 

vs 

4178 


IF(NAUG.EO.l) GO TO 41 

vs 

4179 


IF(NALP.EQ.1I GO TO 40 

vs 

4180 

41 

CONTINUE 

vs 

4181 


00 45 K-1,LWF 

vs 

4182 

45 

REA0<02) ( AW< J), J»1,LWF) 

vs 

4183 

40 

00 50 J-l.LWF 

vs 

41P4 


GANMA(J)-0. 

vs 

4185 


READ ( 02 ) (AW(K) ,K-1,LWF) 

vs 

4186 


00 55 K“1,LWF 

vs 

4187 

55 

GAMMA ( J) -GAMMA ( J)-AW<K)*CA(K) 

vs 

4188 

50 

CONTINUF 

vs 

4189 

17 

FORMAT (10F10«5) 

vs 

4190 


PSI(29)-CFF 

vs 

4191 


CALL THRUST ( L PANEL »GAMMA»SNALP#LPAN1,ICAN»ICANB»NLEF,NAL» IV, I WING 

>vs 

4102 

1YK,0C,DS»CA,IVGLT,K7»P,BK,RL,CNALP»DF,NC1»KT,PC,ICA8T,$WPP,IBLC, 

vs 

4193 

2YC0N, BREAK ) 

vs 

4194 


IA-I 

vs 

4195 


CALL C-AMAX <AW,CA,LPAN1,LPANFI , GAMMA, BREAK, CHPRDT, IWING, 

vs 

41 96 1 

1YCN, SLOPE, CTX, I WGLT, K Z , SE » I A ) 

vs 

4197 


IF<I.E0«1) GO TO 65 

vs 

4193 


IF(I.E0.2) GO TO 60 

vs 

4199 


DO 59 K-1,LWF 

vs 

42C0 


GAMR(K)-GAMMA(K ) 

vs 

4201 


IF (K . LE • LPANEL ) GO TO 61 

vs 

4202 


GO TO 59 

vs 

4203 

61 

GAMR(K )- GAMMA (K)*DUMC(K)-YV(K) /HAL FBm*CP(KJ*Pl-(XV(K)-YRFF)/HALFVS 

4204 


1B(1)*GAMX(K )*RL*DUM(K )-DL'MX< K )*C A ( K ) 

vs 

4205 

59 

CONTINUE 

vs 

4206 


WRITE CJPT, 17) (GAMR(K),K-1,LWF) 

vs 

4207 


DO 56 K-l.NCS 

vs 

4208 

56 

Y(4,K)«CD(K) 

vs 

4209 


IF(MZ.EO.O) GO TO 70 

vs 

4210, 


DO 77 K«1,NC$ 

vs 

4211 


BR — (X<11,K)-XREF)/HALFB(1)*RLL 

vs 

4212 

77 

CD(K)«2.*DMM(K)*BR 

vs 

4213 


CALL $ PNI NT t N VLim,NVL2<l)»NS> CD, SJ# SWEEP, HI, X,GR, WIDTH, GRV) 

vs 

4214* 


GP- GRWPGH/GW 

vs 

4215 
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c 

c 


c 

c 


CAU AUGV0R(AV,CA,GAKR»GR,LPANEL»X2,Y2,Z2»B,77CP»XCP,YCP,1> VS 

GO TO 70 vs 

65 00 58 K-l.LWF VS 

GANP(K)«GAMNA(K) VS 

IF (K .1 E • LPANEL ) GO TO 62 VS 

60 TO 58 VS 

62 GANP(K)-GA*MA(K)*DUNC(K)*0UN(K)*P*DUMZCK)/HALF8<1>*GAHX<K) VS 

1-DUMS(K)*P*DUNY(K)/HALFB(1)*GAMX(K)-DUHX<K)*CA<K> VS 

58 CONTINUE VS 

00 63 K-l.NCS VS 

63 Y(2»K)-CD(K) VS 

WRITE ( JPT. 17) (CO(K).K-l.NCS) VS 

WRITE( JPT.17) (GAHP(K), K-l.LWF) VS 

IF(MZ.EO.O) GO TO 70 VS 

00 76 K-l.NCS VS 

76 CD(K)-X(12»K)*2.*Y(1»K)*Y(2»K)*X(16»K)*X(13»K) VS 

WR ITE (JPT.17) (X(12»K), K-l.NCS) VS 

WRITE (JPT.17) (X (13, K), K-l.NCS) VS 

WRITE( JPT.17) (X(1A,K), K-l.NCS) VS 

CALL SPNINT(NVLKl) » NVL2 ( 1 ) .NS.CD, S J.SWEEP. Nl.X »GP» WIOTH.GPW ) VS 

6P-GPW*GM/GW VS 

CALL AUGV0R(AV,CA»GAHP»GP»IPANEL»X2,Y2,Z?,B»Z7CP»XCP»YC?,1) VS 

GO TO 70 VS 

60 DO 57 K-l.LWF VS 

GAM8 (K )-GANMA(K ) VS 

IF(K.LE. LPANEL) GO TO 66 ' VS 

GO TO 57 VS 

66 GAN0(K)-GAHMA(K)ADUNC(K)+BK*GANX(K) *OUN (K )— DUHX (K)*CA(K) VS 

57 CONTINUF VS 

DO 67 K-l.NCS VS 

67 Y(3»K)-CD(K) VS 

WRITE( JPT.17) <CO(K ), K-l.NCS) VS 

WRITE ( JPT.17) (GAMB(K ), K-l.LWF) VS 

IF(NZ.EO.O) GO TO 70 VS 

GBB-GN*2«*BKK VS 

CALL AUGVOR ( A W, C A , GANB ,GB B » LPANEL, X2, Y2» Z2.B.7ZCP.XCP.YCP. 1 ) VS 

70 IF(I.EO.l) GO TO 75 VS 

IF(I.E0.3) GO TO 35 VS 

RL-RLL VS 

BK-O. VS 

GO TO 35 VS 

75 BK-BKK VS 

P-0. VS 

35 CONTINUE VS 

RETURN VS 

END VS 

FORTRAN NLSTIN VS 

SUBROUTINE WBETA ( X, Y, Z.WN.OSS.DCC. BK.RL.HALFB.OS.DC.NCS.IV.IWING, VS 
IYK.IWGLT,NASYM»NC1»DSK,DCK»LL»BREAK) VS 


6216 

6217 

6218 

6219 

6220 
6221 
6222 
6223 
6226 

6225 

6226 

6227 

6228 

6229 

6230 

6231 

6232 

6233 
6236 

6235 

6236 

6237 
623ft 
6239 
6260 
6261 
6262 
6263 
6266 ; 

6265 

6266 

6267 

6268 
6269 

6250 

6251 

6252 

6253 
6256 

6255 

6256 

6257 

6258 

6259 

6260 
6261 
6262 
6263 
6266 
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TO CALCULATE DOVNWASH DUE TO ADDITIONAL WAKE VORTICES IN SIOESLIP 
DIMENSION DSK (6*1 )» OCK (6*1 )»HALFB( 1 )» IV(1)»IWING(1) 

OIMENSION D$(l)#DCm»C0N(2)*V<2),V<2)*YK(6»l) 

DIMENSION IWGLT(1)*BPEAM6,1) ....... 

COMMON/BETA/ GM AX ( 50 ) , XTG ( 50 ) * YTG( 50) » ZTG( 501 *B2 »NCG, CTG (1 5 ) » ST G( 

l C0MN0N T /EXTRA/ # LPN(6)#NS(6)»ICNLE(6)»ITWSTCft)#lST(6)#»’GR0,HEIGHT» 

1ATT*NC (6) »NWING(6)» I POS ( 6 ) » I ALP»DUMT ( 3* 6* 15 ) »HALFBH ( 6) 

COMMON /INOUT/ INPT,JPT 
DATA CON/1 • *-l • / . 

DIST2«0.5*DI$T 

FN-NCG 

WW-O. 

VV-O. 

XREF-GMAX (50) 

LG-1 

IF(NGRD.EO.l) LG-2 
ZA-O. 

YA-BRE AK ( 1# 1 ) 

YAA-BREAK ( 1*1 ) 

IF(NASYM.EO.O) GO TO 40 
YA-YK (1»NC1) 

YAA-YA 

IF(NCl.EO.l) GO TO 40 

NC11-NC1-1 

DO 41 I-1.NC11 

ZA-Z A+ ( YK ( 1# I )— YK ( 1*1 + 1) ) *D$K (1*1+1) 

41 YAA-YAA+lYK (1*1 )-YK (1*1+1 >>*DCK( 1,1+1) 

YA-YK (1,1) 

40 CONTINUE 
IPN-1 
L-l 
IM-0 

00 1 I -1* NCS 
W ( 2) - 0 . 

V ( 2 ) - 0 • 

JFUBS (BK) .GT, 0.0001) PR-BK*DC(I) 

ISM-2 

IF (IV(L).EO.l) ISM-1 
J-2 FOR LEFT WING EFFECT 
IF(NASYM.EQ.l) ISM-1 
DO 9 J -1* ISM 
W(J)-0. 

V(J)-0. 

ADD-O. 

YC-Y*C0N(4) 

NSEG-1 

IH-I+IM 

IHI-I+l+IM 


VS 

VS 

VS 

VS 

1VS 

VS 

VS 

VS 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 


4265 

4266 

4267 

4268 

4269 

4270 

4271 

4272 

4273 

4274 

4275 

4276 

4277 

4278 

4279 

4280 

4281 

4282 

4283 

4284 

4285 

4286 

4287 

4288 

4289 

4290 

4291 

4292 

4293 
429 4 

4295 

4296 

4297 

4298 

4299 

4300 

4301 

4302 

4303 

4304 

4305 

4306 

4307 

4308 

4309 

4310 

4311 

4312 

4313 




AVX»0.5*(XTG(IH)*XTG(IHI>) 

VS 

4314 


KSE>NS(LL ) 

VS 

4315 


KSI-0 

vs 

4316 


IF (LI • GT. 1 ) KSI«NS(ll-l) 

vs 

4317 


IF(YC.GT.YTG(IH).AND.YC.lT.YTGf IHI)) GO TO 2 

vs 

4316 


IF(I.GT.KSI.ANO.I.LE.KSE) 60 TO 3 

vs 

4319 


IFfX.6T.AVX1 ADD-X-AVX 

vs 

4320 


GO TO 3 

vs 

4321 

2 

IF(I.GT.KSI.ANO.I.LE.KSE) GO TO 3 

vs 

4322 


IFCX.LT.AVX) GO TO 3 

vs 

4323 


NSEG-2 

vs 

4324 

3 

CONTINUE 

vs 

4325 


00 4 KY-l.NSEG 

vs 

4326 


DX-0IST2+ADD*0.5 

vs 

4327 


DXX-DIST+ADD 

vs 

432B 


IF(NSEG.EO.l) GO TO 6 

vs 

.4329 


IF(KY.EO.l) DX-(X-AVX)*0.5 

vs 

4330 


IF(KY.EO.l) DXX-X-AVX 

vs 

4331 

6 

CONTINUE 

vs 

4332 

100 

FORMAT <2X» 2I4#2X#8F10.5 ) 

vs 

4333 


XP1- XT G ( I H 1 

vs 

4334 


XP2- XTG ( IHI 1 

vs 

4335 


IF(NSEG.E0.2.ANO.KY.EO.NSEG) XP1-XP1+X-AVX 

vs 

4336 


IF(NSEG.E0.2.AND.KY.E0.NSEG) XP2-XP2+X-AVX 

vs 

4337 


DO 5 K-l.NCG 

vs 

4338 


00 5 KK-l.LG 

vs 

4339 


0X1»XP1+0X*(1.-CTG(K ) ) 

vs 

4340 


0X2-XP2*DX*(1.-CTG(K) ) 

vs 

4341 


IF f AB S ( Rt ).GT. 0,0001) PR — RL* ( 0 . 5* ( 0XH-0X2 1-XREF ) /HALFO ( 1 ) 

vs 

434? 


IF (ABS (RL 1 *GT. 0.0001 ) GO TO 10 

vs 

4343 


X1-0X1-X 

vs 

4344 


X2-QX2-X 

vs 

4345 


X12-OX2-OX1 

vs 

4346 


IFfABS (OCC-OC(I)).GT. 0.001) GO TO 26 

vs 

4347 


IFfABS (OSS-DS(I) ) .GT.0.001) GO TO 26 

vs 

4348 


IF(NCfL).GT.l) GO TO 26 

vs 

4349 


IF(J.EO.l.ANO.KK.EO.l) GO TO 25 

vs 

4350 

26 

PS-DS(I) 

vs 

4351 


PC-OC(I) 

vs 

4352 


GO TO 27 

vs 

4353 

25 

PS-0. 

vs 

4354 


PC-1. 

vs 

4355 

27 

CONTINUE 

vs 

4356 


V12-YTG(IHI)— YTG(IH) 

vs 

4357 


212-ZTG(IHI)-ZTG(IH)4Y12*PS 

vs 

4358 


Y12-Y12*PC 

vs 

4359 


Yl-YAA+(YTGtIH)-YA)*PC-YC 

vs 

4360 


Y2-YAA4(YTG(IHI)-YA)*PC-YC 

vs 

4361 


XYK-X1*Y12-Y1*X12 

vs 

4362 
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IF(KK.EO.l) 60 TO 7 VS 

ZC — 2.*(Z+HEIGHT) + Z VS 

6E— 1. VS 

FCON-1, VS 

60 TO 8 VS 

7 ZOZ VS 

66-1. VS 

FCON-O. VS 

8 Z1"ZTG(IH)-ZC+ZA*(YTG(IH)— YA)*PS VS 

Z2*ZTG(IHD— ZC + ZA+(YT6CIHI)-YA)*PS VS 

XZJ-X1*712-71*X12 VS 

UC0M»-Z1*Y12*(-ATT)*FC0N VS 

YZI«Y1*Z12-Z1*Y12 VS 

AL81»XYK*XYK+X7J*X7J+B2*Y?I*Y7l VS 

R81»S0RT(X1*X1«-82*Y1*YH-B2*Z1*Z1> VS 

RB2-SQRT{X2*X2+8?*Y2*Y2+B2*Z2*72) VS 

UB-(X2*X12+B2*Y2*Y12*B2* 72*712) /RB2-(X1*X12+B2*Y1*V12+B2*Z1*Z12 )/ VS 

1RB1 VS 

GB1»(1«-X1/PB1) /(Y1*Y1+Z1*Z1) VS 

G82M1.-X2/R82)/(Y2*Y2 + Z2*Z2) VS 

Fl-UB* (UCON+XYK )*GE/ALB1 VS 

F2-<-Y2*GB2*Yl*GRl)*6E VS 

F3-- X7J*UB/ALB1*C0N (J ) VS 

F4»(Z2*GB2-Z1*GB1)*C0N(J) VS 

PI — (F3 + F4)*STG(K )*GNAX (I)*DXX/FN VS 

P2— <Fl4F2)*STP(K)*GNAX(I )*DXX/FN * VS 

VR ITE ( 03 ) P 1 * P2 VS 

60 TO 11 VS 

10 READ ( 03 ) P1»P2 VS 

11 V(J)«V( J)*P1*PR VS 

8 V(J)»V(J)4P2*PR v * 

A CONTINUE VS 

9 CONTINUE VS 

IFUBS(PL).GT. 0.0001) 60 TO 30 VS 

IF (I . EQ.NCS ) 60 TO 30 VS 

IF (I . EO.NS (L ) ) GO TO 17 VS 

IF (IVING(L).NE.O.AND.I.EO.IVING(U) GO TO 17 VS 

IF<YTG(IHI).LT.YK(L,IPN)) 60 TO 30 VS 

17 NJ«0 VS 

IF(NASYM.E0.1. AND.IPN.LT. NCI) NJ-1 VS 

IF(NJ.EO.l) IPN-IPN+1 VS 

ZA-7A+(YK (L,IPN)-YA )*DSK{l,IPN) VS 

YAA»YAA+(YK(L#IPN)— YA)*DCK(l*IPN) VS 

YA-YK(L»IPN) VS 

IF(IVIN6(L).NE.0.AND.I.E0.IVIN6(L) ) GO TO 23 VS 

IF (I • EO.NS (L ) ) GO TO 23 VS 

60 TO 24 VS 

23 IF ( IW6LT ( L ) . EO.l ) 60 TO 24 VS 

ZA-O. _ VS 


4363 

4364 

4365 

4366 

4367 

4368 

4369 

4370 

4371 

4372 

4373 

4374 

4375 

4376 

4377 

4378 

4379 

4380 

4381 

4382 

4383 

4384 

4385 

4386 

4387 

4388 

4389 

4390 

4391 

4392 

4393 

4394 

4395 

4396 

4397 
4308 

4399 

4400 

4401 

4402 

4403 

4404 

4405 

4406 i 

4407 

4408 

4409 
4410 ' 
4411 
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YA«BREAK (L+l#l) 
YAA»BREAML+1»1) 


YA-BRf AK(L#1) 

YAA-BREAK(L*1) 

IFd.EO.NS(L) .AND.L.LT.6) 

IFd.EO.NSCL). AND. l.LT. 6) 

IFCX.EO.NSCL)) GO TO 24 
IF C IWGLT Cl ) .NE • 2 ) GO TO 24 
7A-YKCL.NC CD-21 *OSKC 1,1) 

YAA-YK<l,NC(L)-2)*0CK(l,l) 

YA-YK (L.NCCD-2) 

24 IFCNJ.NE.l) IPN-IPN+1 
30 CONTINUE 

IF (I • EO.NS (L ) ) IPN-1 
WW-WV+(V(1)-U<2) )/8. 

VWV+CV<1)-VC2) ) / 8 • 

IFCI.EQ.NS(L) ) IH»IH*1 
IFd.EO.NS(L)) l-L + 1 
1 CONTINUE 

VN*WW4DCC-VV*DSS 

RETURN 

ENO 

C FORTRAN NLSTIN 

FUNCTION VLCTY(X»Y,Z,X2»Y2»Z2#GH»82) 

C TO CALCULATE THE DOWNWASH OUE TO A DISCRETE VORTEX 

PI-3. 14159265 
F1-CY2-Y)**2+CZ2-Z)**2 
F2-S0RTC <X2-X)**2+B2*F1) 

VLCTY--GH/(4.«'PI)*{Y2-Y)/F1*C1.-CX2-X)/F?) 

RETURN 

ENO 

C FORTRAN NLSTIN 

FUNCTION VFPCOP(AP) 

IF(AP.LE.1.25> VERC0R“0.24*AP 

IF(AP.GT.1.25.AN0. AP.LE.2. ) VERCOR-0.1467*AP+0.1167 

IF C AP • GT • 2. ) VERCOR"0.05*AP*0.31 

RETURN 

END 

C LINK LINK 44 » l INK33 

C FORTRAN NLSTIN 

C TO^INTEGR ATE THE LOADING AND OBTAIN TOTAL CHARACTERISTICS 

DIHENS ION GAHHA (200 ) 

0IH6NSI0N AV ( 201 ) »C A C 201 ) ,DMHC50) 

OIHENSION 0YB(6).DYR<6) , . 

OIHENS ION CPCVLC16)»CPSVIC31)»CIVI (6) »CHWL (6) » COWL 1 6) 

OIHENSION CIS(50)»CLY(50)»CAVS<50)»CPFC10»?0) 

OIHENSION FTL <6 ) » CBHR (6 ) »CBTR (6 ) »CBHL (6) #CBTl C6) *CIVC 6 ) *CHV C6 ) # 
l COW ( 6 ) 

COHHON ALOOP/K I» NALP»K ALP » T ANC 2, CLDS, AI» CLII » AlPII, ALFA ( 15) 
COHHON /VBDN/ ICOUNTjlY.BAR.C.6,2 ), YCHX( 6# 2 ) » HSTPC 6 ) »YBRC6» 2 )* YBRBR 


VS 

VS 

VS 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

<6, VS 


4*12 

4413 

4414 

4415 

4416 

4417 

4418 

4419 

4420 

4421 

4422 

4423 

4424 

4425 

4426 

4427 

4428 

4429 

4430 

4431 

4432 1 

4433 

4434 

4435 

4436 

4437 

4438 

4439 

4440 

4441 
444? 

4443 

4444 > 

4445 

4446 

4447 

4448 

4449 

4450 

4451 

4452 

4453 

4454 
4455i 

4456 

4457 
4450, 

4459 

4460 
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12),YBR8L(6,2),YD2(6,2).YDR2(6,2),YDL2<6»2)*ABD(6,2>,ABDR<6#2) VS 

1»A8DL(6#2)»YREF(6)»YC8R(6»2)»YCBL(6#2) VS 

COMMON /OSL/ CTP(6»2)»CH0PDT(6»4),SCH(200)#IAT#CRFF#8REF2 VS 

COMMON/GO/ TINP(6)»8PEAK(6»10)»TFLP(6»5)»RINCC6)>NAl<6) VS 

1»YBREAK(6#7)#0C0S(6#5)»D$IN(6»5)»IVING(6)#IVGIT(6)»IV(6)#LPAN1(6) VS 

1 * ICAHT ( 6 ) VS 

COMMON /AJG/ ALP#J1»CP(200)»GAMP(200)»GAMB(200)» GAMR C200) VS 

1,GAMX(200),Z?CP(200 J,0ZY(200),BMP( 6, 50 ) » BNl ( f , 50) ,CSU( 50 ) VS 

COMMON /SCHEME/ C ( 2 ) » X ( 1 5 , 41 ) , Y ( 1 5 , 41 ) , SLOPE <15 ) » XL ( 2. 1 5 ) * XTT ( 4 1 ) * VS 
1XLK41) VS 

COMMON /G EOM/ HALFSW,XCP(200) , YCP ( 200) , ZCP( 200) » XLE (ICO ) , YLF (100) » VS 
1XTE(100J»PSI(30)»CH(100),XV(200),YV(200),SN(6»15»2)»XN(200»2)»YN(2VS 
200.2) ,ZN(200,2)#VIDTH(6»5)»YCON(51 ) # S VE FP ( 100 > #HAIFB( 6) #S J ( 6# 31 #5 ) VS 
COMMON /AERO/ AM, B ,CL ( 50 ) »C T( 50) »C D ( 50 ) » CM ( 50) VS 

COMMON /CONST/ NCS,NCW,M1 (6»5)»MJW1(6,2»5),MJW2(6,2,5),NJV(6,5) # VS 
1NFP(6),NV(6,2 J VS 

COMMON /CAMB/ ICAM(6)#IM(6#10)»XT(6,10»21)*AAH(6#10#2-0)»BBH(6»10« VS 
120).CCM(6.10,20),D0M(6,10,20) . YT ( 6 , 1 0 ) . CUPV( 6. 1 0 ) »CHN0 ( 6, 10 ) VS 

COMMON /FXTRA / LPN(6),NS(6),ICNIE(6).ITWST(6),IST(6),NGRD»H£IGHT, VS 
1ATT.NC (6) ,NVING<6)» IPOS ( 6 ) , I Al P, DUfT ( 3* 6, 1 5 ) , HALFBH ( 6 ) VS 

COMMON /BET A/ GMAX(50)»XTG(50) ,YTG( 50 ) , ZTG ( 50) ,B2,NCG#C TG ( 1 5 ) , $TG( 1 VS 
15),0IST,P,BK,PL,CFF VS 

COMMON /LEFLP / YL EF ( 6, 10, 2 ) , XNF (6, 10 ) , YNF (6, 10) , 7NF ( 6, 10 ) , XL F ( 6, 1 OVS 
1»4),YLF(6.10,4) »SLP1(6,10) VS 

COMMON /TVST1/ NYM(6),YTS(6»21),AY(fc,20),PY(6,20)»CCY(6,20)#DY(6» VS 
120) * VS 

COMMON/SHPLE/ NLE,YSL(15)»AOL(14),BOL(14),COL<14),DOL(14) VS 

COMMON/SHPTE/ NTF, YST ( 1 5 ) , AOT ( 14 ) , BOT ( 1 4 ) ,COT( 14 ) , OCT ( 1 4 ) VS 

COMMON /SSS/ NASYM,NSl'P,LPANEL, IC A MB, NUMS, I APVX, PT VS 

l,NAUG,IBO,PBK,PIS,TOIH,ALPINC,IRl,KT,PI,ALO,ALZ VS 

2»NCl»NC2#mC VS 

COMMON /GO SL/ OF (6,5) ,YCN(6,4) ,NLFF ( 6 ) , N VPTX ( 6 ) , SHAL P ( 50 ) ,CNALP ( 50 ) VS 
1»ALPH(50)» AUX(6»5)»CPX(6,f ) . XTILT ( 6 ) , SLETH ( 6 ) , YCNTD ( 6 ) VS 

1 »NVll (6)»NV12(6)»XCNTD(6),CTILT(6) » S W'PP ( 6. 5 ) » PC ( 6. 50 ) , X P EF VS 

1»BUX(6,5)»SE(3»6»15)#NIIR(6),CVR(50)/CPAUG( 200 ) VS 

1,ALPPO(6,2),MX(6),ALBOBR(6,?),ALBDBL(6,2),MVPTX(6) VS 

COMMON /SL/ COSA,SINA,MZ,CTX, VPRK, 7BK,GV,LATT VS 

COMMON /FUS/ XF(20),XCF(20)/RF(20) ,SNP ( 5» 20 ) , XLEF.XTEF# VAPO ( 20 ) , VS 
1NCUM,NF,NT,CSF(5,10),XAS(6),NKF(5) ,F0,F10»KF,NTl»LVF, VKN»PDX,XU VS 
COMMON /INOUT/ INPT, JPT VS 

DATA OYB /6*0 • / VS 

OATA OYR /6*0./ VS 

DATA CLVL ft* 0./ VS 

OATA CMVL /6*0. / VS 

OATA COWL /6*0. / VS 

OATA CLV /6*0 . / VS 

DATA C MV / 6*0./ VS 

OATA COW /6*0 • / VS 

2 FORMAT (8F10.6) VS 


4461 

4462, 

4463 

4464 

4465 
4466 ! 

4467 

4468 

4469 

4470 

4471 

4472 

4473 

4474 

4475 

4476 

4477 

4478 

4479 

4480 

4481 
44P2 

4483 

4484 

4485 

4486 

4487 

4488 

4489 , 

4490 

4491 

4492 

4493 

4494 

4495 

4496 

4497 
44Q3 

4499 

4500 

4501 

4502 

4503 

4504 1 

4505 

4506 

4507 , 

4508 

4509 
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FORMAT <8<6X,I41) 

vs 

4510 

format ux» aoh***r*r***** ♦♦**♦**♦♦***♦*♦**♦***♦♦*♦♦***) 

vs 

4511 

Y02( 1 » 1 ) • 0. 

vs 

4512 

CIPP-O. 

vs 

4513 

CORR-O. 

vs 

4514 

C0VL«0. 

vs 

4515 

CLT-O. 

vs 

4516 

CMT-0. 

vs 

4517 

COT-O. 

vs 

4518 

CLL-O. 

vs 

4519 

CLtV-O. 

vs 

4520 

CNL-O. 

vs 

4521 

CNLV-O. 

vs 

4522 

CY-0. 

vs 

4523 

CNB* 0 ♦ 

vs 

4524 

CLB-O. 

vs 

4525 

CLP-0. 

vs 

4526 

CYP«0. 

vs 

4527 

CNP-O. 

vs 

4528 

CYR-O. 

vs 

4529 

CLRR-O. 

vs 

4530 

CNP* 0 • 

vs 

4 5 31 

CYBV-O. 

vs 

4532 

CYBVSE-O. 

vs 

4533 

CN8V-0. 

vs 

4534 

CNBVSE *0* 

vs 

4535 

CL3V-0* 

vs 

4536 

CLBVSE-O. 

vs 

4537 

CYPV-O. 

vs 

4538 

CYPVSE-O. 

vs 

4539 

CNPV-O. 

vs 

4540 

CNPVSF-O. 

vs 

4541 

CLPV-O* 

vs 

4542 

ClPVSE*0* 

vs 

4543 

CYRV-O* 

vs 

4544 

CYRSE-O. 

vs 

4545 

CLRRV-O. 

vs 

4546 

CIRVSE-O. 

vs 

4547 

CNR V ■ 0 • 

vs 

4548 

CNRVSE-O. 

vs 

4549 

CSL « 0# 

vs 

4550 

CSXL • 0, 

vs 

4551 

CAX«0. 

vs 

4552 

CAXV-O. 

vs 

4553 

CPCV-O. 

vs 

4554 

CRCV-O. 

vs 

4555 

CBCV-O. 

vs 

4556 

CSAUG-O. 

vs 

4557 

CM AUG* 0 • 

vs 

4558 
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CLGH-O. 

CDGM-O. 

CMGN-O. 

CLDV-O. 

CDOV-O. 

CNDV-O. 

CSNW-O. 

CYPVA-O. 

CLPVA-O. 

CNPVA-O. 

CY8VA-0. 

CNBVA-O. 

CLBVA-O. 

CYRVA-O. 

CIRRVA-O. 

CNRVA-O. 

DP-0. 

DR-O. 

DB-O. 

KC-1 

IJK-0 

YC0N(50)-NASYM 

NC0L-M1<1,1) 

KLL-0 

MM-0 

NCW1-NCW+1 

IPN-1 

7B-0. 

YB-BR E AK ( 1 » 1 ) 

YBB-BREAK(1,1) 

IF(HASYM.EO.O) GO TO 1373 
YB-YBREAK (1,NC1 ) 

YBB-YB 

IF(NCl.EO.l) GO TO 1373 

NCll-NCl-1 

DO 1 37 A I-l.NCll 

ZB-7B+(YBREAK (1,1 J-YBREAK (1,1+1 ) J*DSIN(1,I*1 ) 
137A YBB-YBB + (YBREAK(l,n-YBREAK(l,IM ) ) *DCOS ( 1 1 1*1 ) 
YB-YBR EAK (1»1 ) 

1373 CONTINUE 
ZBK-ZB 
YB8K • Y8B 
NCSS-NCS 
COW-1 . 

SOW-O. 

U-l 

YCBR(l,2)-0. 

00 5 I-l.lWF 
GAMMA ( I ) -SCHC I ) 


VS 

4559 

vs 

4560 

vs 

4561 

vs 

4562 

vs 

4563 

vs 

4564 

vs 

4565 

vs 

4566 

vs 

4567 

vs 

4568 

vs 

4569 

vs 

4570 

vs 

4571 

vs 

4572 

vs 

4573 

vs 

4574 

vs 

4575 

vs 

4576 

vs 

4577 

vs 

4578 

vs 

4579 

vs 

4580 

vs 

4581 

vs 

4582 

vs 

4583 

vs 

4584 

vs 

4585 

vs 

4586 

vs 

4587 

vs 

4588 

vs 

4589 

vs 

4590 

vs 

4591 

vs 

4592 

vs 

4593 

vs 

4594 

vs 

4595 

vs 

4596 

vs 

4997 

vs 

4598 

vs 

4599 

vs 

4600 

vs 

4601 

vs 

4602 

vs 

4603 

vs 

4604 

vs 

4605 

vs 

4606 

vs 

4607 
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5 SCHC I > -C P ( 1 1 



vs 

4608 

DO 10 I-1*NCS 



vs 

4609 

DHH(I)-CLfl) 



vs 

4610 

CAVS<I)«BMR<6#I) 



vs 

4611 

10 Avm-cim 



vs 

4612 

GB*S I N ( BK ) 



vs 

4613 

GBC-COS(BK) 



vs 

4614 

GB2-GB*GB 



vs 

4615 

C VORTEX BREAKDOWN EFFECT 



vs 

4616 

ALHT-0.03*<5 



vs 

4617 

IF (IALP.EO.l) GO TO 22*5 



vs 

4618 

IF(IBD.EO.O) GO TO 22*5 



vs 

4619 

IFULP.LT.ALMT.ANO.ICOUNT.GE.l > 

ICOUNT-ICOUNT*! 


vs 

4620 

IFULP.GE.ALMT) ICOUNT-ICOUNT+1 



vs 

4621 

IFLALP.GE.ALMT. AND. ICOUNT.EO.l) 

CALL CENTRD(NS#NSUR#NV, IWING, 

vs 

4622 

lCREF,HALFB>ALPmE#YN#SWFEP#AWjALPBD#LPN,O.#AH#O#YCHX,HX,NSTP>Y0P 

vs 

4623 

2*BREAK#YRFF#MVPTy#Hl»NC»IAGVX»SJ»VI0TH#ICAN#CAVS#ADP#NA$YM# 

IV# 

vs 

4624 

3NLEF, YD2* KF) 



vs 

4625 

IF (IBD • EO *0 ) GO TO 2245 



vs 

4626 

IF(lAT.NF.l) GO TO 2243 



vs 

4627 

IF ( I COUNT • N F • 1 ) GO TO 2245 



vs 

4628 

CALL CENTRD(NS,NSUR, NW» I V ING, C R EF , HALF P • Al P , YL E, YN, SWEEP# AW 

, ALBDBVS 

4629 

1R#LPN# BK# AH#l#YCBP#MX,8STP,YBR>BREAK,YPFFf HVRTX # 81# NC # I AGVX 

#SJ# 

vs 

4630 

2VIDTH, ICAM,CAVS, ABD>NA$Y8,IV,NLEF, YD2,KF > 


vs 

4631 

IF(NASYM.EO.l) GO TO 22*5 



vs 

4632 

CALL C ENTRD ( NS » NSUR » N V# I WING ,C R EF , HALFB# Al P, YLE# YN,S WEEP# A W# AL BO SVS 

4633 

1L#LPN»BK# AM#?,YCeL#MX#MSTP#YBR» 

BREAK# YREF# MVRTX* Ml #NC » I AGVX 

9 S J , 

vs 

4634 

2 WIDTH, ICAM,CAV$, ABD,NASY8,IV,NLEF# YD?#KF) 


vs 

4635 

2243 CONTINUE 



vs 

4636 

WRITE< JPT#B> 



vs 

4637 

WR ITF ( J PT , 700 ) 



vs 

4638 

700 FORMAT (?X.76H***THE FOLLOWING ALPHAS FOR VnoTFX BREAKDOWN AT T.F. 

vs 

4639 

1HAVE BEEN CORRECTEO F OR / 1 OX , 75HC AM B ER ANO ADVERSE PRESSURE 

GRADIENVS 

4640 

2T IN VORTEX LIFT AUGMENTATION# 

IF ANY#**) 


vs 

4641 

22*5 CONTINUE 



vs 

4642 

JA-0 



vs 

4643 

DO 2233 K»1#NSUR 



vs 

4644 

IF CNASYM. EO.O ) GO TO 21*5 



vs 

4645 

YCBL(K,1)-YCBR(K,1) 



vs 

4646 

YCBl <K,2)«YCBR<K,2) 



vs 

4647 

ALBDBL (K»1)-ALBDBR(K#1) 



vs 

4648 

ALBDBL (K#2)-ALPDPR(K#2) 



vs 

4649 

21*5 CONTINUE 



vs 

4650 

IF(IBD.FO.O) MX ( K ) » 1 



vs 

4651 

IF(IBD.EO.O) MSTP (K )»0 



vs 

4652 

IG-0 



vs 

4653 

IF<MVRTX(K).NE.O) IG-1 



vs 

4654 

IF (IBD.NE.O) VRITE(JPT#6‘5> K 



vs 

4655 

60 FORMAT </2X»21H***F0R SURFACE NUMB E.R_#_ J.3j>J^jl3JH**.* ) 


vs 

46*6 
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K2 • MX (K I 
DO 2233 I»1#K2 
jA-J A*1 

. IF ( J A «GT • 6 ) JA«6 
JDXTE-0. 

' YBAR (K» I ) -1 • 

• ,HT -0 

• MCNT-0 
IA-IG+I 
NA-YD2(K* I) 

' IF(I.E0.2) IA-YD2 (K#l)+1 
0A*0* 

jF(IBO.EO.O.OR.IALP.FO.l) GO TO 909 
IF ( I COUNT *NE • 1 ) GO TO 909 
IF*ABSCXTILT*JA)».LT.l.E-3) GO TO 909 
DXR«AUX<K,IA)-CRX(K#IA) 

• XR-AUX<K»NA)-0XR 

ox-o. 

;• IF (XR . GT« 1 . E—3 ) DX-ABS<XTILT(JA)/XR) 
DA«REDBD(DX)*PI/180. 

IF(XTILT( JAI.LT.O. ) OA — 2.*DA 

910 F0RNAT<[/2X»20HPFVISED ALPHA BDTF • » F10.3#7HDEGREES ) 
IF(I ALP.EO.l) GO TO 2233 

IF(TBD.EO.O) GO TO 2251 
iF(ICOUNT.NE.l) GO TO 911 
ABD(K»I)-ALPBO(K»I) 

ALPBO(K»I )-ALPBO(K» I) -DA 
IF(ALP8D(K# I) .LT.O.) ALPBD(K»I)-0. 

911 CONTINUE 

IF ( ALP .LT .ALPBD (K » I ) ) GO TO 2251 
ALPOT- ( ALP-ALPBO (K» I ) ) *180. /PI 

2250 CONTINUE 
DXTE-BDPT(ALPDT) 

IF (MT • EQ • 1 ) GO TO 2254 
YBAR ( K # I ) -1 •-DXTE 

IF(YBARlK»I).LT.O.) YBAR(K»I)-0. 

IF(ALP0T.LT.8. ) GO TO 2251 
ALPOT-ALPDT-8. 

NT-1 

GO TO 2250 
2254 CONTINUE 

2251 CONTINUE 

C WR ITE ( JPT» 2 ) ALP»ALPBD(K»I)»YD2(K»I)#ALP0T 

AA-ALPB0(K.I)*180./PI 
IF(IBO.EO.l) VRITEl JPT/910) AA 
IF (I80.NE.0) WRITEIJPT.701) 

701 FORMAT(5X»25H(FOR SYMMETRICAL LOADING)) 

Y8RBR ( K» I ) •! « 


VS 

4657 

vs 

4658 

vs 

4659 

vs 

4660 

vs 

4661 

vs 

4662 

vs 

4663 

vs 

4664 

vs 

4665 

vs 

4666 

vs 

4667 

vs 

4668 

vs 

4669 

vs 

4670 

vs 

4671 

VS 

4672 

vs 

4673 

vs 

4674 

vs 

4675 

vs 

4676 

vs 

4677 

vs 

4678 

vs 

4679 

vs 

4680 

vs 

4681 

vs 

4682 

vs 

4683 

vs 

4684 

vs 

4685 

vs 

4686 

vs 

4637 

vs 

4688 

vs 

4639 

vs 

4690 

vs 

4691 

vs 

4692 

vs 

4693 

vs 

4694 

vs 

4695 

vs 

4696 


VS 4697 
VS 4698 
VS A699 
VS 4700 
VS 4701 
VS 4702 
VS 4703 
VS 4704 
VS 4705 
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non 


Y8RBL CK,I)-1. 

YDR2(K, I)«l. 

YDL2 (K # I ) «1 # 

if(ibo.eo.o) go to 2233 

IF (L AT.NF.l ) GO TO 2233 
DXTF-0. 

IF(ICOUNT.NE.l) 60 TO 912 
ABDR(K,I)*ALBDBR(K#I) 

ABOL (K*I)«AL8DBL (K# I) 

ALBDBR (K,I)-ALBDBR(K, D-OA 
ALBOBKK, I)-ALBOBL(K,I )-0A 
IF(ALBOBR(K,I).LT.O.) ALBDBR (K# I ) ■ 


ALBDBL ( K# I ) «0» 


IF(ALBOBL(K,I).LT.O.) 

912 CONTINUE 

AAbALBDBR (K# T )* 180 . /pi 
BB-ALBDBL (K» I )* 180 . /PI 
WRITE ( JPT *910 ) AA 
WRITE (JPT, 702 ) 

702 F 0 RMAT( 5 X» 28 H(F 0 R RIGHT WING IN SIDESLIP!! 
WRITE ( JPT# 910 ) BB 

WRITF ( JPT # 703 ) 

703 FORMAT ( 5 X , 27 H ( FOR LEFT WING IN SIDFSLIP 11 

■ ifialp.lt. albdbr(k.i) i go to 2249 
' ALPOT-( ALP-AL 8 PBR (K#I ) JR 180 ./PI 
OXTE-BDPT(ALPDT) 

YBRBR(K»I).l.-pxTE 

22 A 9 IF (ALP.LT. ALBD 8 LCK#I)) GO TO 2248 
ALP 0 T-(ALP-AL 8 D 8 L (K#I ) ) * 100 . /PI 
DXTE- 8 DPTULPDT 1 
YBP 8 L(K#I ) • 1 .— OXTE 
22 4 P CONTINUE 

IF (YBRBR(K#I).LT.O. ) YBRRP(K,I)-0. 

IF (YBRBL ( K, I ) .1 T.O. ) YBRBL (R» I ) «0. 

ALFOT- (ALF- ALBDBR (K, I ) )* 160 . /PI- 8 . 
IFULPDT.LT.O.) GO TO 2247 
DXTE-BDPTULPDT) 

YDR 2 (K,I)- 1 .- 0 XTE 

2247 ALPDT- (ALP-AL 8 DBL (K,I ) )* 180 ./PI- 8 . 
IFCALPDT.LT.O.) C -0 TO 2233 
OXTE "B DPT (ALPDT ) 

Y 0 L 2 (K#I )« 1 ,- 0 XTE 
IF(YDR?(K,I).LT.O.) YDR 2 (K,I). 0 . 

KCH«l T * E °* n WR1TE(JPT » 2) y DR 2 ( 1 # 1 !#YDL 2 ( 1 # 1 ] 
K «1 


vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

»ALBDBL(1#1),YBR(1,1)VS 

vs 

vs 

vs 

vs 


4706 

4707 
4706 

4709 

4710 

4711 

4712 

4713 

4714 

4715 

4716 

4717 

4718 

4719 

4720 

4721 

4722 

4723 

4724 

4725 

4726 

4727 

4728 

4729 

4730 

4731 

4732 

4733 

4734 

4735 

4736 

4737 

4738 

4739 

4740 

4741 
474? 

4743 

4744 

4745 

4746 

4747 

4748 

4749 

4750 

4751 

4752 

4753 

4754 
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NL-1 

JK-0 

JVING-IVING(K1 

TO-?. 

JA-1 

LL-1 

KY-0 

KS-0 

KR-0 

DR-O. 

ORR-O. 

SRR-0. 

OBB-O. 

YBA-0 • 

YBD-0. 

YBC-0 • 

SYB-HALFB (1) 

SYR-HALFB (1 ) 

SSB-HALFB ( 1 ) 

ICONT-1 

ABRN-O* 

ABR-O. 

YYB-O. 

RTK-1. 

RTD-1. 

RTBR-1 . 

RTBL-1 . 

DO 21AA I-l.NSUR 
CLVm-O. 

CHV(I)-0. 

CDW( I ) -0. 

civim-o. 

CMwnn-o. 

21AA COWL ( I ) -0. 

SPANVISE INTEGRATION 
00 150 I-l.NCS 
KN-K 

IF(K.GT.l) KN-K— 1 
IQ-I 

IF(K.GT.l) IO-I-NS(K-l) 

IF(I.NE.(NS(KN)+D) GO TO 22AA 

KY-0 

KS-0 

KR-0 

ICONT-1 

YYB-O. 

SYB-HALFB t K ) 

SYR-HALFB ( K ) 

SSB-HALFB tK ) 


vs 

4755 

vs 

4756 

vs 

4757 

vs 

4758 

vs 

4759 

vs 

4760 

vs 

4761 

vs 

4762 

vs 

4763 

vs 

4764 

vs 

4765 

vs 

4766 

vs 

4767 

vs 

4768 

vs 

4760 

vs 

4770 

vs 

4771 

vs 

4772 

vs 

4773 

vs 

4774 

vs 

4775 

vs 

4776 

vs 

4777 

vs 

4778 

vs 

4779 

vs 

4780 

vs 

4781 

vs 

4782 

vs 

4783 

vs 

4784 

vs 

4785 

vs 

4786 

vs 

4787 

vs 

4788 

vs 

4789 

vs 

4790 

vs 

4791 

vs 

4792 

vs 

4793 


vs a?oa 

VS A795 
VS A796 
VS A797 
VS A798 
VS A799 
VS ABOO 
VS A801 
VS A802 
VS A803 
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0R«0. 

088-0- 

ORRaO- 

SRR-O. 

YBA-O. 

YB0«0. 

YBC-O. 

2B-0. 

YB-BREAK(Kfl) 

YBB«BREAK (K»l ) 

2244 CONTINUE 

BHL(5»K)-0. 

IF tl.OE.NSTP (tO -AND.HSTPOO.NF.O) HA-2 

N8*Y02 (K» MA) . 

IF(NASYH.EO.l.ANO.NA.EO.l) NB*NB*1 


C 


NO-1 

IF (HVRTX(K) .NF.O) NO-2 

IF (M A* EO« 2) NO-YD2(K*MA-l ) + l 

WP ITE ( JPT#3 ) NO#NB»K»IV(K) 

IFCHA.E0.2.AND.I.E0.NSTPCK)) KY-0 
IF(MA.E0.2.AN0.I.E0.NSTP(K)) KP-0 
IF(MA.EQ.?.AND.I.E0.NSTP(K)) KS-0 

J7-2 

IF(NLEF(K).FO.n J7-1 
COD- DC OS ( K» TPN) 

SOD-DSIN(K, IPN) 


FATR-1. 

11-0 

IFtlV(K).EO.l) FATR-0.5 
IF(NW(K*2).EO.O) GO TO 160 
IF(K.EO.l) I1-KCH*NS(K) 

IF tK.GT.l ) I1-KCH«-N$<K)-NS(K-1) 

CHORD- C H( KCH) *CH( II ) 

GO TO 161 

160 CHORD-CH(KCH) 

161 CONTINUE 
kh-kch 

IF(Il.NE.O) KH-I1 
FS-COS (SHEEPtKCH) ) 

SSN-SINISWEEP(KCH)) 

FTAN-SSN/FS 

TAN-FTAN 

IF(LAT.NE.l) GO TO 2255 

BR — <XLE(KCH)-XREF)/HALFB(l)*Rl 

BR2-BR*BR 

RG-ABS ( DMH t I > )* t 2 . ♦ ABS ( GB ) ♦FTAN*6B2) 
RGR-ABS (DPN ( I ) )*(2.*ABS(BR)+FTAN*BR2) 
RATR-TO*RGR /CHORD 


VS 4804 
VS 4805 
VS 4806 
VS 4807 
VS 4808 
VS 4809 
VS 4810 
VS 4811 
VS 4812 
VS 4813 
VS 4814 
VS 4815 
VS 4816 
VS 4817 
VS 4818 
VS 4816 
VS *820 


VS 

4821 

VS 

4822 

vs 

4823 

vs 

4824 

vs 

4625 

vs 

4826 

vs 

4827 

vs 

482P 

vs 

4829 

vs 

4830 

vs 

4831 

vs 

4832 

vs 

4833 

vs 

4834 

vs 

4035 

vs 

4836 

vs 

4837 

vs 

4638 

vs 

4839 

vs 

4840 

vs 

4841 

vs 

4B42 

vs 

4843 

vs 

4044 

vs 

4845 

vs 

4846 

vs 

4847 

vs 

4848 

vs 

4049 

vs 

4850 

vs 

4851 

vs 

4852 
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rat-to*pg/chord 

VS 

4853 

2255 

CONTINUE 

VS 

4854 


IFU.EO.l.OR.I.EO.MSTP(K)) GO TO 2253 

vs 

4855 


IF(I.NE.(NS(K)+1)) GO TO 2252 

vs 

4856 

2253 

CONTINUE 

vs 

4857 


IF(IALP.EO.l.OR.IBO.EO.O) GO TO 2252 

vs 

4858 


IF(ICOUNT.LT.l) GO TO 2252 

vs 

4859 


RTK-FRATN(YCNX(K,HA)) 

vs 

4860 


RTD-RTK 

vs 

4861 


IF (L AT.NE • 1 ) GO TO 2252 

vs 

486? 


RTBR -FRATN(YCBR(K,MA )) 

vs 

4P63 


RTBL-FRATN{YCBL(K,NA>) 

vs 

4864 


BML(3»K)-PTBR 

vs 

4865 


BHL(2#K)«RTBL 

vs 

4866 


BKRt 2 » K ) ■ RTK 

vs 

4867 

C 

WRITE ( J PT# 2 ) RTK,RTBR#RTBL 

vs 

4868 

2252 

CONTINUE 

vs 

4869 


IF(NX(K).E0.2) GO TO 2260 

vs 

4870 


HREF -HAL FB < K ) -BR E AK ( K , 1 ) 

vs 

4871 


YD-BREAK(K.l) 

vs 

487? 


GO TO 2261 

vs 

4873 

2260 

IF(MVRTX(K) .NE.O) GO TO 2262 

vs 

4874 


HR EE • YR FF (K)-BRFAK(K#1) 

vs 

4875 


YD-BR E AK ( K » 1 ) 

vs 

4876 


GO TO 2263 

vs 

4877 

2262 

HREF-YREF ( K l-BRE AK ( K# 2 ) 

vs 

4878 


YD-B R E AK ( K» 2 ) 

vs 

4879 

2263 

CONTINUE 

vs 

4880 


IF(NA.E0.2> HREF«HALFB(K)-YREF(K> 

vs 

4881 


IF(NA.F0.2) YD-YPEF(K) 

vs 

488? 

2261 

CONTINUE 

vs 

4883 


IFCNASYM.EQ.l ) HR EF -HAL F B (K ) 

vs 

4884 


IF(NASYM.E0.1 ) YO-0. 

vs 

4885 


HTIP-HREF+YD 

vs 

4886 


NJL-LL 

vs 

4887 


IF (M A . EO . 2 ) NJL-LPN(K) 

vs 

4888 

C 

CHECKING THE LOCATION OF VORTEX BREAKDOWN 

vs 

4089 


YY-( ABS(YLEtKCH) ) -YD) /HREF 

vs 

4890 


FF-l. 

vs 

4891 


IF(YY.GT.YBAR(K,MA) ) FF-RTK 

vs 

4802 


FDR-FF 

vs 

4893 


IF ( I , NE .NS ( K ) ) GO TO 694 

vs 

4894 


IA-IWINGfK ) 

vs 

4095 


IF(IA.EO.O) IA-NS(K) 

vs 

4896 


RRT-1 • 

vs 

4897 


IF(CT(IA).GT. 0.0001) RRT-ABS (CSU (I A ) /CT ( IA )) 

vs 

4898 


IF (RRT .GT.l . ) RRT-1. 

vs 

4899 

C 

WRITE ( JPT» 2 ) RRT 

vs 

4900 


CBNR < K ) -RRT 

vs 

4901 
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89* CONTINUE 

AB1«ABD(K,HA> 

AB2-AB0R(K»PA) 

AB3-AB0L (K>HA) 

IF(LAT«NF.l) GO TO 226* 

FBR-1 . 

FBL-1. 

FRR-1. 

FRL-1. 

KX»0 

YPl-1. 

FPR-1. 

YP-1. 

YR-1. 

FPL-1. 

ID-0 

IF(IAGVX.E0.1.ANO.NA.E0.2) ID-1 
IF(IBD.EO.O) GO TO 2266 
EFFECT OF ROLLING ON VORTEX BREAKDOWN 
YCC-YBB-M YLE(KCH)-YB)*COD 
7CC-ZCP(MN+1)*7B+ <YLE <KCH)-YB)*SOD 
PALP ■ P* ( ZCC*SOD + YCC*COD) /HALFP C 1 ) 

aipp-alp*cod 

ALDl-ALPP^PALP 

ALD2-ALPP-PALP 

BLD1-ALD1 

BLD2-ALD2 

YCC-YBB+(HTIP-YB)*COD 
ZCC-ZCP (NJL )+7B*< HTIP-YB )*SOD 
PA-P* ( ZCC*SOD*YCC*COD )/HALFB(l > 

ALD1 -ALPP+PA 
ALD2-ALPP-PA 
IF (H A • EQ • 1 ) ABP1-ALD1 
IF(NA.EQ.l) ABP2-ALD2 
IF <NA . EO« 2) ABP3- ALD1 
IF(HA.E0.2) ABPA-ALD2 
IFU.NE.NS(K) ) GO TO 2280 
GPR-1. 

GPL" 1 • 

IFCALD1.GF.AB1) GPR-RTK 
IF(AL02.GE,AB1) GPL-RTK 
2280 CONTINUE 

YN1- YN ( NN*1»1 ) 

YN2-YN (HN+1,2 ) 

IF(NASYN.E0.1«AND.HA.E0.1) YN1 • ABS ( YN ( HN+1, 2 )) 
IF(NASYN.E0.1.ANO.HA.E0.1J YN2-ABS (YN(HN+1#1 ) ) 
YYl- (YNl-YD)ZHREF 
YY2- ( YN2-YD ) /HP FF 
VH1-YN1 


VS 

4902 

vs 

4903 

vs 

4904 

vs 

4905 

vs 

4906 

vs 

4907 

vs 

4908 

vs 

4909 

vs 

4910 

vs 

4911 

vs 

4912 

vs 

4913 

vs 

4914 

vs 

4915 

vs 

4916 

vs 

4917 

vs 

4918 

vs 

4919 

vs 

4920 

vs 

4921 

vs 

4922 

vs 

4923 

vs 

4924 

vs 

4925 

vs 

4926 

vs 

4927 

vs 

4928 

vs 

4929 

vs 

4930 

vs 

4931 

vs 

4932 

vs 

4933 

VS 

4934 

vs 

4935 

vs 

4936 

vs 

4937 

vs 

4936 

VS 

4939 

vs 

4940 

vs 

4941 

vs 

494? 

vs 

4943 

vs 

4944 

vs 

4945 

vs 

4946 

vs 

4947 

vs 

4948 

vs 

4949 

vs 

4950 
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YH2-YN2 

If (4L01.LT. ALP8D(K, HA) ) 60 TO 2269 
IF(BL01.LT.ALPe0(K,MA> ) GO TO 2269 
ALD1-0.5*(ALD1+BLD1 ) 
AL01-(ALD1-ALPBD(K,MA) ) *180. /PI 
DXTE-O. 

IFULD1.GT.0. ) DXTE-BDPT(ALDl) 
YP-l.-DXTE 

IF (YY2 .LE. YP) GO TO 2269 
IF ( YY1 .GT. YP) FPR-RTK 
IF (YY1 .LE. YP .AND. YY2 .GT. YP) 
1Y1) 


FPR-1.- 


2269 


IF(»L02.LT.ALPB0(K,H4) ) GO TO 2268 
IF (BL02.LT. ALPBD(K, HA) ) GO TO 2268 
ALD2-0.5*(ALD2+BLD2) 

AID2-(ALD2-ALP8D(K#HA) )*ieO./PI 
OXTE-O. 

IF (AL02.GT.0. ) DXTE«BDPT( AL02) 

YPL-l.-OXTE 

IF ( YY2 .LE. YPL ) GO TO 2268 
IF ( YY1 .GT. YPL) FPl-RTK 

IF(YY1.LE.YPL.AND.YY2.GT.YPL) F PL -1 .-( 1 .-RTK )* ( YY2-YPL ) / ( YY2-YY 1 ) 
2268 CONTINUE 

: EFFECT OF SIDESLIP ON VORTFX BREAKDOWN 

IF(YY.GT.YBRBR(K,HA)) FBR-RTBR 
IF(YY.GT.Y8RBL (K#HA ) ) FBL-PTBL 

IF(ALP.GT.AB2.AN0.ALP.LT.AB1) FSD-1 •-( 1 .-PTRP ) ♦ ( ALP-AB2 ) / ( AB1-AB2 

IF(ALP.GE.ARl) FSD-RT8R 

FSOL-l. 

IF(ALP.GE.AB3)FS0L-RTBL 
C EFFECT OF YAWING ON VORTFX BREAKDOWN 

IFBL-0 
IFBR-0 
RK-RT8L 
BLP*-BR 

IF(PBK.GT.O.Ol) eLR— BK-PR 
BB-BLR 

BLR- AB S (BLR ) 

BA1- ALPBO (K » HA ) 

BA2-ALB0PL(K,HA) 

BA3-ALBDBR(K»HA) 

GRL-B Al-( BA2-8A1 ) /8K + 8B 

IFIPBK.LT. 0.01) GRL-BA1~( BA1-P A3 ) / PK*PB 

DRL-BA1+(BA2-8A1)/BK*8B 

IF ( PBK . GT .0.01) DRL-BAl+( BA1-BA 3 ) / BK*BB 

ARL-GRL 

CRL-ARL 

BLR- ( AUX (K»NB)-XREF)/HALFB(1)*RL 


VS 

4951 

vs 

4952 

vs 

4953 

vs 

4954 

vs 

4955 

vs 

4956 

vs 

4957 

vs 

4958 

vs 

4959 

vs 

4960 

YVS 

4961 

vs 

4962 

vs 

4963 

vs 

4964 

vs 

4965 

vs 

4966 

vs 

4967 

vs 

4968 

vs 

4969 

vs 

4970 

vs 

4971 

1 vs 

4972 

vs 

4973 

vs 

4974 

vs 

4975 

vs 

4976 

vs 

4977 

2)VS 

4978 

vs 

4979 

vs 

4080 

vs 

4981 

vs 

4902 


VS 

VS 

VS 

VS 

VS 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 


4987 

4984 

4985 
4966 
4987 
4983 
4969 
4900 

4991 

4992 

4993 

4994 

4995 

4996 

4997 

4998 

4999 


c-} 
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IF CPBK .GT.0.01 ) BLR— BK+BLR 
AA-BLR 

BLR-ABSCBLR) 

ERL-BA1*C8A2-BA1 )/8K*AA 

HRL-8A1— C B A2-BA1 J 7BK*AA 

IF CPBK. GT.0.01) ERL-8A1* ( 6 A1-BA3 ) / PK#A A 

IF CPBK. LT. O.Ol) HRL»BA1-(BA1-BA3)/BK*AA 

ARL-HRL 

CRR a CRL 

YEY-ABSCYLF(KCH) ) 

BZ-CERL—DRL)/ ( HTI P-YE Y ) 

BDRl-ORL*RZP( YH1-YEY) 

BDR2-0RL+8Z*C YH2-YEY) 

B7-CHRL-GRL)/(HTIP-YFY) 

BDL1«GRL+B7*(YH1-YEY) 

BDL2-GRL*BZ*(YH2-YEY) 

KY-0 

IF(HA.EO.l) ABR2-API 
IF(MA.EO.l) ABR1-ERL 
IFCHA.E0.2) A8P3-APL 
IFCMA.E0.2) ABP4-ERL 

IFCALP.GT.CPL.OR.ALP.GT.DPL) GO TO 226? 
IF(ALP.GT.ERL.OR.ALP.GT.HPL) GO TO 2265 
GO TO 2266 
20 CONTINUE 
DXTE-O. 

APD-CALP-ARL)*180./PI 
IF(ALP.GT.ARL) DXTE -BD PT C APD ) 

YR-1 ,-OXTF 
IFCYR.LT. 0. ) YR-O. 

IF CYR .LT. YY1) YR-YY1 

IF (YR ,GT. YY2 ) YR-YY2 

DXT-O. 

AP0«(ALP-ARL1)*180./PI 

IF CALP .GT. ARL1) OXT -BOPT ( APD ) 

YR1-1 .— OXT 

IF CYP1 .GT. YY2 ) YR1-YY2 
IF CYR1 .LT. YY1) YR1-YY1 
YR-0.5*(YR+YR1 ) 

IF ( YY 2 .LE. YR) GO TO 23 

RP-RTBR 

RN-1. 

IF (KX .EO. 2) RP-RTPL 

IF («X , E 0 • 1 .AND. PRK .GT. 0.01) RP-RTBL 

IF CKX • EO. 1 .AND. YY1 .GT. YR ) FRL-RP 

IF CKX .EO. 2 .ANO. YY1 .GT. YR ) FRR-PP 

IFIYYi .LE. YR .AND. YY2 .GT. YR ) RN-1. -Cl. 

IF CYYl .LE, YR .AND. YY2 .GT. YR) KY-1 


VS 

VS 

VS 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

-RP)*CYY2-YR )/CYY2-YYl )VS 


VS 

YS. 


5000 

5001 

5002 

5003 

5004 
5005' 

5006 

5007 
500P 
5000 

5010 

5011 ‘ 

5012 

5013 

5014 

5015 

5016 

5017 

5018 
5010 

5020 

5021 

5022 

5023 

5024 

5025 

5026 

5027 
5026 , 
5020 
5030 
*031 

5 OS 2 

5033 

5034 
5C3 5 

5036 

5037 
5036 
*030 
“040 

5041 

5042 

5043 

5044 

5045 

5046 

5047 
.5048 
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IF (KY .EO. 1 « AND* KX .EO.l) FRL»RM V| 

IF (KY .EO. 1 .AND. KX .EO. 2) FRR-RN _ 

IF ( P8K «LT« O.Ol .AND. KX .EO. 1) PMM- C 1 .-PM) / <1 .-PP ) VS 

IF (P8K . GT. 0.01 .AND. KX .EO. 2) RHM. Cl.-PH)/ (l.-RP ) VS 

23 CONTINUE Jl 

IF (KX • EO. 1 ) GO TO 21 *“ 

60 TO 2266 

2265 CONTINUE ” 

* WRITEUPT.2) hrl.grl 

IF(ALP.LT.HRL.AND.ALP.LT.BDL2) GO TO 21 *5 

KX*1 

APL-0.5MBDL2 + HRL) J* 

ARL1-0.5MBDL1 + HPL) 

GO TO 20 H 

21 CONTINUE *' 

IF(ALP.LT.ERL.AND.ALP.LT.DRL) GO TO 2266 V5 

KX*2 

ARL"0.5*(8DR1+ERL1 

ARL1-0.5*(8DR2+ERL) 

GO TO 20 

2266 CONTINUE *1 

IF ( AB S ( F PR-RTK ) .GT. 0.01) GO TO 8B3 ’S 

IF (PBK .GT. 0.01 .AND. APS ( FRP-RTBL ) .GT. 0.01) FRR-RTK VS 

883 CONTINUE 

IFII0.E0.1) GO TO B82 ** 

GO TO 893 

882 CONTINUE . V * 

C STRAKE EFFECT ** 

IF(ALP.LE.ALBDBR(K»1)) FBR-1. *| 

IF(ABP1.LE.ALPPD(K»1)) FPP-1. 

IF(ALP.LF.ABRl) FRP-1. ** 

C WRITE (JPT.2) ABP1.ABP2»ABP3#ABR1#ABR2#ABR3 

IF(ALP.GT.ALBDBL(K,2). AND. ALP.LE .A LBDBL (K»l ) ) F8L»1.-(1 .-FBL ) * ( AL PVS 
1— ALBDBL(K»2))/(ALBDBL(K»1)-ALBDBL(K»2)) 
IF(ABP2.GT.ALPR0(K»2).AN0.ABP2.LE.ALPBD(K»1) ) FPL-1 .-( 1 .-FPL )* ( APPVS 

12-ALPBD (K » 2))/(ALPBD(K#l )— ALP8D(K» 2) ) %<k44ttk H 

IF(ALP.GT.ABR3. AND. ALP.LE. ABR2) FR L«1 .-( 1 .-FRl ) * ( At P-ABP3) / ( ABR 2- VS 

1 ABR3) J: 

893 CONTINUE ” 

IF(I.EO.NS(K)) BHL(A»K)-0.5*(GPR+GPL) *5 

IF ( I . E O.NS ( K ) ) XL(1»K)»0.5*(FSD*FSDL) VS 

IF (I . EO.NS (K ) ) CA(K)-FSDL 

IF(ABS (l.-FBR ) .GT.0.01 ) R AT«TO*ABS ( DNM { I ) ) /CHORD VS 

IF (ABS (l.-FRL ) .GT.0.01 ) R ATP»TO* AB S ( DMM t I ) ) /CHORD VS 

IF(PBK. GT.0.01. AND. A8S(1.-FPR). GT.0.01) RATR«TO*ABS ( OHM ( I ) ) /CHORD VS 

C IF (I .EQ.NS (K ) ) WRITE ( J PT» 2 ) BHL ( K ) »XL tl#K ) » XI C2#K ) VS 

226A CONTINUE 

IF (I • FO.NS ( K ) ) CPCWL(K)-RRT VS 

_IF(I.EO.NS(K) .AND.ALP.GE.AB1)CPCWL(K)«RTK*RRT VS 
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CHL-O. 


vs 

5008 

cism-o. 


vs 

5090 

CUD'O. 


vs 

5100 

com*o. 


vs 

5101 

PIC* PI /CHORD 


vs 

5102 

CLGl-O. 


vs 

5103 

CDGl-O. 


vs 

5104 

CMG1*0. 


vs 

5105 

CYS-O. 


vs 

5106 

CNS-O. 


vs 

5107 

CLBS-O. 


vs 

5108 

CLPS-O. 


vs 

5100 1 

CLPVS-O. 


vs 

5110 

CVPS-O. 


vs 

5111 

CNPS-O. 


vs 

5112 ' 

CYRS-O. 


vs 

5113 

CLRS-O. 


vs 

5114 

CNRS-O. 


vs 

5115 

CNftl-O. 


vs 

5116 

CYSl-O. 


vs 

5117 

ciesi-o. 


vs 

511 P ‘ 

CYRl-O. 

* 

vs 

5110 

CNR1*0« 


vs 

5120 

CLRl-O. 


vs 

5121 

ClY(I)*0. 


vs 

5122 

CDPPS-O. 


vs 

5123 

CIPPS-O. 


vs 

5124 

CAXl-O. 


vs 

5125 

C AVS ( I ) *0 . 


vs 

5126 , 

NCV»NW(K»1)«-NW(K,2) 

vs 

5127 

IF (L AT «NE .1 ) 

GO TO 2275 

vs 

5128 

IFCIO.LF.MVRTX(K) .AND.HVRTX(K).NE.O) GO TO ?275 

vs 

5120 

IF (BUX ( K » N8 ) 

• IF. AUX ( K » NB ) J GO TO 2275 

vs 

5130 

OXR » A UX (K » NO ) — f R X ( K » N 0 ) 

vs 

5131 

CRR*AUX(K,N8)-0XR 

vs 

5132 

XEF*CRR* ( YEY 

— BREAK (K»NO) )/(YBPEAK(K#NB)-BPEAK(K#iJO) ) + OXP 

vs 

5133 

IF(KY.FO.O) 

DYB(K)«YYB 

vs 

5134 

IF(KY.EO.l) 

GO TO 2272 

vs 

5135 

XE-XEE+ABS(RG)*TQ 

vs 

5136 

IF<XE.lT.AUX<K#N«n GO TO 2271 

vs 

5137 

KY-1 


vs 

5138 

IFIYBA.lT.l. 

E-20)XBA-DXR 

vs 

5130 

IF ( YB A • LT • 1 • 

E-20)YBA-BPEAK<K#N0) 

vs 

5140 

SY*YBA4(YLE(KCH)-YBA)*(AUX(K»NB)-XBA)/(XE-XBA) 

vs 

5141 • 

SB*SY 


vs 

5142 

IF(SB.LT.O. ) 

SB «0 • 

vs 

5143 

0YB(K)-0.5*(YBREAK(K#NB)-SB) 

vs 

5144 , 

SYB-SB 


vs 

5145 

OBB-OYBIKI 


vs 

5146 
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GO TO 2272 
2271 X8A-XE 

YBA*YLE(KCH) 

01* AU X (KfNB)-XE 


02*CRR 

IF (( 01-02 1 .LT.l .E-9 ) GO TO 2272 
IF(02.LT.l.E-5) GO TO 2 27? 

Dl«YBREAMK,NB)-ftREAK(K,NO)-(YEY-BPEAK<K,NOn/ 

SYB-YBREAK (K.NB1-DL 
IFtSYB.LT.O.) SYB-O. 

068*0.5*01 
DYB( K )*0. 5*01 
2272 CONTINUE 

IFtKR.EO.OI OYR(K)-DPR 

WRITF ( JPT> 2) XE» AUX (K » NB 1 »SYB»DBB 

IF(KR.EO.l) GO TO 2273 

XF*XEE+ABS(RGR1*T0 

IF(XE.LT.AUX(K,NB)> GO TO 2274 

KR-1 

IF(YRD.LT.1.E-20)XBD«DXR 
IF (YBP.LT.1.E-201YB0 "BREAK (K»NO) 
SP«YR0*(YEY-YB01* (AUX(K»NB)-XBD)/t XE-XBD) 

OYR(K ) -YBREAK (K » NB 1 -SR 


C1.-01/02) 


SPR-SR 

DYR(K)-0.5*DYR(K) 

SYR* SRR 
GO TO 2273 
2274 XBO* X E 

YeO-YLE(KCH) 

Q1-AUX(K*NB)-XE 

02-CRR 

IF<<01-02) .LT.l. E-9) GO TO 2273 
IF (02.LT.1.E-5) GO TO 2273 

DL *Y BREAK (K.NB1—PRFAK ( K»NC)-t YEY-BREAK (K»N0))/(1 
SYR-YBREAK (K.NB1-DL 
IFtSYR.LT.O.) SYR-O. 

2273 CONTINUE 

IF (KS.EO.l) GO TO 2277 
XE-XEE+ABS (ONfMI 1 1 
IF <YE.LT.AUX(K*NB 1 1 GO TO 2276 
KS-1 

IF (YRC .LT.l .E-20) XBC-DXR 
IF(YBC.LT.1.E-20)YBC*BREAK(K#N0) 

SB*YBCMYEY-YBC 1 * ( AUY ( K , NBl-XBC 1 / ( XE-XBC) 

SSB-SB 

IFtSSP.LT.O.) SSB*0. 

OB Y-0. 5* (YBREAK (K»NB)-SB) 

GO TO 2277 
2276 XBC-XE 


-01/C2) 


VS 

5147 

vs 

5148 

vs 

5149 1 

vs 

5150 

vs 

5151 

vs 

5152 

vs 

5153 

vs 

5154 

vs 

5155 

vs 

5156 

vs 

5157 

vs 

515B ' 

vs 

5159 

vs 

5160 

vs 

5161 i 

vs 

5162 

vs 

5163 

vs 

5164 

vs 

5165 

vs 

5166 

vs 

5167 ' 

vs 

*168 

vs 

5169 

vs 

5170 

vs 

5171 

vs 

5172 

vs 

5173 

vs 

5174 

vs 

5175 

vs 

5176 ‘ 

vs 

5177 

vs 

51 78 

vs 

5179 ' 

vs 

5180 

vs 

5181 

vs 

5182 

vs 

*183 

vs 

5194 

vs 

5195 

vs 

5186 

vs 

5187 

vs 

5188 

vs 

5189 

vs 

5190. 

vs 

5191 

vs 

5192 

vs 

5193 

vs 

8194 

vs 

5195 
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YBC-YLE(KCH) 

OBY-OBB 

01- AUX (K» NB)-XE 

02- CRR 

IF((01-02).LT.l.E-9) 60 TO 2277 
IFI02.LT.1.E-5) GO TO 2277 

DL-YBPEAK <K,N8) -BREAK <K,NO)-( YEY-BREAK (K,NO) )/(l. -01/02) 

SSB*YPREAK{K#N8)-DL 

IF(SSB.LT <0<) SSB-O. 

2277 XAV«0.5*(AUX(K,NB )+BUX(K,NB> ) 

IFClD.EO.l.ANO.ALP.LT.ALBOBR(K.l)) 60 TO 2275 

BPL-( AUX(K#NB)-XPEF)/HALFB(1)*RL 

BRT-< XAV-XREF ) /HALF 8(1) *RL 

ALL-ABl-t AB1-AB2) /BK*BRT 

BLL-ABl-I AB1-AB2)/BK*BRL 

IFCBRL.LT.O.) BLL-AB1 

ALL-0. 5*(ALL*BLL) 

IF(ALP.GT.BLL ) SYR-SSB 

IF(ALP.GT.ALL.AND.ALP.LT.BLL) S YR • SYR ♦( ALP-ALL )*( SSB-SYR )/( PLL- 
1 ALL ) 

IFULP.GE.AB2.AN0.SYB.GT.SSB) S YB- SYR* ( ALP-AB2 > * ( SSB-SYB ) / ( AB1- 

IF(ALP.GE.ABl) SYB-SSB 
2275 CONTINUE 

C WR ITE ( JPT» 2 ) SYB,SYR,SSB#0BB»DY8(K)#PP,DYP(K) 

C CHOROWISE INTEGRATION 

00 155 J-1»NCW 
EPL-O. 
nn-j+nn 

IF (NW <K* 2 ) .EO.O) GO TO 151 
IF ( J . L E • NW ( K# 1 J ) GO TO 151 
IK-0 

IF(K.GT.l) IK-NS(K-l) 

LL-LPAN1 ( K ) +NW( K, 2 )*(I-IK-1 J+NN-NW (K, 1 )* (I-IK ) 

IL-I1 

JL L- J— NW ( K » 1 ) 

L-2 

FN«NW(K,2) 

GO TO 152 

151 Ll-NN+JK 
IL-KCH 
JLL-J 
L-l 

FN-NW(K.l) 

152 CONTINUE 
ECM-O. 

XC-(XV(LL 1 — XL E C K C M 1 ) /CHORD 
IF (ICAM(K).E0.3) XC-XV(LL) 

71-XC 


VS 
VS 
VS 
VS 
VS 
VS 
VS 
VS 
VS 

vs 
vs 
vs 
vs 
vs 
vs 
vs 
vs 
vs 
vs 
vs 
AB2VS 
VS 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 


5106 

5197 

5198 

5199 

5200 

5201 

5202 

5203 
520* 

5205 

5206 

5207 
520B 

5209 

5210 

5211 

5212 

5213 
521* 

5215 

5216 

5217 

5218 

5219 

5220 

5221 
52 22 
5223 
522* , 

5225 

5226 

5227 

5228 

5229 

5230 

5231 

5232 

5233 
523* 

5235 

5236 

5237 

5238 

5239 i 
52*0 
52*1 
52*2 
52*3 
52** 


196 


296 


300 


TSW(XN(LU2)-XN(Ll»l))/(YNtU»2)-YHCLL#in 

IF (I VING( K ) .NF .0. AND • I .GT. I WING (K ) ) 60 TO 311 
IF (IALP «E0« 1) GO TO 305 
T F ( K • E 0 • 1 • AND • IC Af*B • EO • 1 ) GO TO 1315 

CALL 7CR(XC»YV(LL)»CAM,ICAM,21»K»1»CH0RD#D7DY#IST*TSV> 

li(LL.6r.»Sm(K.J2.HL).AND.LL.LE.H4W2(K,J2,NL) ) 60 TO 300 
60 TO 296 
1315 YC-YLE(KCH) 

XCC-XC 

XC-XV(LL) 

CALL 2CDX (XC*YC#CAM*D7DY) 

71-YC 

lF(L“6E.HJMl(K,J2,HL).AN0.LL.LE.MJW2<K,J2,NLn 60 TO 300 

IF (NL • EO. NAL ( K ) • AND.N JW1 ( K » 2»NL ) .E0.0) 60 TO 300 
CS-COS (EP ) 

SS-SIN(EP) 

60 TO 310 

If (NL • EO. NAL ( K> ) EP-ALPH(I) 

IF (NL .NE .NAL (K ) ) EP- Al PH ( I J-TFL P ( K > Nl ) 

IF (NL • EQ.NAL (K ) ) EPL--TFLP (K*NL > 

IF (NASYN. EO.l ) E PL •-TFL P ( K» NL ) 

IF(NL .NE.NAL(K) ) F.CM-TFLP (K»NL J 
CS-COS (EP) 

SS-SIN(FP) 

60 TO 310 

IF(IALP.EO.l) GO TO 305 

CAN-0. 

IfIkT^NeIo) CALL ZCR(XC»YV(LL)»CAK»ICAH»21*K»ICT»CH0PD» 

IF (LL • GE • M J Vl ( K * JZ# NL ) • AND. LL.LE .MJW2 (K » JZ »NL > > 60 TO 300 
GO TO 296 
305 CS“1. 

SS-1. 

CAM-0. 

310 CONTINUE 

axcam-cah+ecm 
Ul-O. 

U2-0. 

Vl-O. 

7CW-— 2.* ( 2MLL? 1 ) + 2BMYCP (LL)“YB)*S00+HEI6HT )+7N(LL#l)+ZB*(YCP 

^CALL B ACKWH( XV ( LL ) » YV ( LL ) »2CW»LPANEL»B»LPAN1 »NV»CP» U1»L AT»COO » 
1YBRE AK*DC0S*DSIN»V1»IWING*ZB*YB*YBB»NCSS » IWGLT* IV»NC1#KF » SPEAK 
IF (L AT *NE . (~1 ) ) GO TO 512 


311 


VS 

5295 

vs 

5296 

vs 

5297 

vs 

5298 

vs 

5299 

vs 

5250 

vs 

5251 

vs 

5252 

vs 

5253 

vs 

5259 

vs 

5255 

vs 

5256 

vs 

5257 

vs 

5258 

vs 

5259 

vs 

5260 

vs 

5261 

vs 

5262 

v< 

5263 

vs 

5269 

vs 

5265 

vs 

5266 

vs 

5267 

vs 

5266 

vs 

5269 

vs 

5270 

vs 

5271 

vs 

5272 

vs 

6273 

vs 

5279 

vs 

5275 

vs 

5276 

vs 

5277 

vs 

527P 

vs 

5279 

V? 

5280 

vs 

52 PI 

vs 

52P2 

vs 

5283 

vs 

5289 

vs 

5283 

vs 

5286 


VS 

VS 

( LL ) VS 
VS 

SCO* vs 

) vs 
vs 


5287 

5288 

5289 

5290 

5291 
529? 
5293 
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CALL 8ACKVH(XV<LL)#YV(LL)»7CV#LPANFL»B*LPANl#NW#GAHt*A#U2#LAT#C0D» VS 
iS00>V6REAK»DC0S>D5IN#V?,IVIN6,7B#YP,YBB»NCSS#IVGLT#IV#NCl#KF»BRFAKVS 

2 ) VS 

512 CONTINUF Vf 

IF (IALP «EO. 0) GO TO 513 VS 

GAK»CP<LL)*(l. + Ul*ALP)*CP<lU*ALP*Ul-GAHX<Lt>MVl*AlP*S0D»ALP»*2. VS 
GBK«GAHMA(LU VS 

CP(LL ) *GAK VS 

GO TO 51* ys 

513 CONTINUE VS 

ST«S0RT(1.+D7DY*DZDY) VS 

SO-SOO/ST+D70Y/ST*COO VS 

CK-CS ys 

CS-(CAM*SS*CK)/S0RT(1.+CAN*CAM) VS 

PCA-O. VS 

IF (C0D.GT..98) PCA-GAMX(LL)*(V1+SD*SNALP<I)) VS 

6AK"C P (LL )* ( 1 •♦Ul >*CS— PC A VS 

GBK* GANNA (LI ) * ( 1 •♦U1+U2 ) *CS-GANX CLL ) * ( V2+V1 ) VS 

CP(Ll)-GAK VS 


CS-CK VS 

Gamma (ll ) -C-8K VS 

51* CONTINUE vs 

GBS"GAK*SN(K# JLL#L)*CH(IL l/FN VS 

VBS-GBK*SN<K» JLL»l)*CH(IL)/FN VS 

WAS* 0 • VS 

FT-S0RT((l.*CAN*CAH)*C0D*C0D*(Sn0+070Y*CnD)**?) VS 

Pl-(CAH*SS+CS )*COO/FT VS 

PD*(-C AM*CS*-SS)*C0D7FT VS 

PM*f XV(LL)+Z1*CAN-XRFF)*C0D/FT VS 

CL(I)-CL(I)+GBS*PL VS 

CD(I)«CD(I)+G8S*P0 VS 

CHL«CML-GBS*PM VS 

CLPPS-CLPPS*GPS*Pl VS 

COPPS-COP?S+GBS*PD VS 

WGS-CPAUG(LL)*SN(K» JLL»L)*CH(IL)/FN VS 

CLG1«CLG1+WGS*PL VS 

CDG1»CDG1+WGS*P0 VS 

CNG1*CHG1-VGS*PH VS 

CLS(I)*CLS(I)+WBS VS 

CLY(I)-CLY(I)+GBS*CS VS 

CAXL-C AXL+GBS* (-AXC AM )+COD/FT VS 

IF(LAT.EQ.O) GO TO 155 VS 

F7-SN(K, JLL»L)*CH(IL)/FN VS 

IFCLAT.EO. (-1) ) GO TO 1353 VS 

WP»GAMP(LL)+F7*(1.+U1 ) VS 

VB>GANB(LL)*FZ*(1.+U1 > VS 

WP«GANR(LL)*FZ*(1.+U1 ) VS 

F8C-1. VS 

' IF(YCP(Ll).GT.SY8.0R.YY.GT.YBAR(K,MA)) FBC-O. VS 


5294 

5295 

5296 

5297 

5298 

5299 

5300 

5301 

5302 

5303 
530* 

5305 

5306 

5307 
530P 

5309 

5310 

5311 

5312 

5313 

5314 

5315 

5316 

5317 

5318 

5319 

5320 

5321 
532? 

5323 

5324 

5325 

5326 

5327 
532P 

5329 

5330 

5331 
533? 
5333 
533 V 

5335 

5336 

5337 

5338 

5339 

5340 

5341 

5342 
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ORIGINAL PAGE 53 

OF POOR QUALITY 


FV8-1. 

IF(XC.LT.RAT.AND.XV(LL).IT.AUX(K,NB)) FVB«0. 

IF(YN(LL»1) .GT.SY6.AND.XVCLL J.GT.AUXCK.NP)) FVB-O. 
IFCSYB.GT.YN(LL»1 ).AND.SYB.LT.YN(LL#2> > GO TO 521 
60 TO 522 

5?1 1F(XV(LL).LE.AUX(K.NB)) GO TO 522 

FWB-(SYB-YN(LL»1) )MYN(U ,2)-YNCLL»l) ) 

522 CONTINUE 
FVB-ABS(FVB) 

VBB-GAMB(ll)*F7*(l.*Ul>*FVB 

FVR-1. 

IF(XC.LT«RATR.ANO.XV(LL) »LT.AUX(K#NB) ) FUR-0. 

IF(YN(LL»1) .GT.SYR.AND.XV(LL) .GT.AUX(K,NB) ) FWR-O. 
IF(SYR.GT.YN(LL,l).AND.SYR.lT.YNtLl,2>> GO TO 523 
GO TO 524 

523 IF(XV(LL).LF.AUX(K,NB)) GO TO 524 
FWR- (SYP-YN<LL,1) ) / ( YN ( LL # 2 )-YN C LL » 1 ) ) 

524 CONTINUE 
FWR-ABS(FWR) 

VRR»GANR{LL)*F7*(1. ♦til )*FWR 

1353 CONTINUE 
P1»02DY*COO*SOD 
YCV»P1* ( XV( LL J-XREFl/FT 

2CV"P1*(7CP(LL)+7B*(YCP(IL)— YB)*SOD)+CPD*(YBB*CYCP(LL)”YB)*COO) 
7CV-7CV/FT 

IF(LAT.EO.l) GO TO 1354 

EPP-EPL 

EPL-EPL-CAM 

IF(NASYN.EO.l) WBS-GBS 
CLBS-CLPS-VBS*7CV*C0S (EPl ) 

CNS«CNS + WBS*YCV+GBS*SIN(FPP)PYLF(KCH)<'COD/FT 
GO TO 155 

1354 CONTINUE 

CYS”CYS-WB*P1/FT-GB$*(-CAH4CS+SS)*C0D/FT*BK*C0SA 

CNS«CNS+VP*YCV + GBSM-CAM*CS + SS>*COD/FT*BK*(XVtLLJ-XREF)*CO$A 

CLBS-CLBS-WB42CV 

CYPS“CYPS-WP*P17FT 

CLPS-CLPS-WP47CV 

CNPS-CNPS+WPTYCV 

CYRS»CYRS-WR*P1/FT+GPS*SS*(XV(LI )-XREF ) /HALFB Cl )*COD/FT*RL 
CLRS»CLRS-WR*2CV 

CNRS-CNRS+WR*YCV-GBS4SS*(XVCLL)-XREF)/HALFR(1)*C0D/FT*RL*(XV(LL )- 
1XREF) 

CLPVS«CLPVS-(WP-GBS/CS*P*7CV*SINA7HALFB(1)I*ZCV 

CNB1«CNB1+WBB*YCV 

GBS-GBS*FBC 

CYS1«CYS1-WBB*P1/FT-GBS*(-CAN*CS+SS)*C0D/FTPBK*C0SA 

CLBS1«CLBS1-WBR*2CV 

CYR1»CYR1— WRR*P1/FT 


VS 5343 
VS 5344 
VS 5345 
VS 5346 
VS 5347 
VS 5348 
VS 5349 
VS 5350 
VS 5351 
VS 5352 
VS 5353 
VS 5354 
VS 5355 
VS 5356 
VS 5357 
VS 535* 
VS 5359 
VS 5360 
VS 5361 
VS 5362 
VS 5363 
VS 5364 
VS 5365 
VS 5366 
VS 5367 
VS 5368 
VS 5369 
VS 5370 
VS 5371 
VS 5372 
VS 5373 
VS 5374 
VS 5375 
VS 5376 
VS 5377 
VS 5378 
VS 5379 
VS 5 3P0 
VS 5381 
VS 5382 
VS 5383 
VS 53P4 
VS 53P5 
VS 5386 
VS 5387 
VS 5388 
VS 5389 
VS 5390 
VS 5391 
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c 


1 


CNR1-CNP1*VPR*VCV 

CIR1-CLR1-WRR*ZCV 

CNBl-CNBl*Ge$P<-CAN*CS*$S>*COD/FT*BKMXV(lL 
55 CONTINUE 

END OF CHORDVISE INTEGRATION 


)— XREF 1 *COS A 


315 


DZDY«0. 

TSV-SIN(SWEEP<KCH> )7COS(SWEEP(KCH) ) 

IF ( I ALP .EO. 1) GO TO 316 

IFdVINGOa.NF.O.ANO.I.GT.IWINGOO) GO TO 320 
IF (K.EQ.l.AND.ICAHB.EO.l) GO TO 1325 
XC - 0. 

IF(ICAM(K1.E0.3) XC-XLE(KCH) 

CALL 7CR(XC*YLE < KCH ) »C AMLE#IC AH» Z1 #K » 1# CKORO* D7DY# IST#TSW 1 
IF (NLEF(K) .EO.O) GO TO 318 

IF (LL .GE.MJWHK, J 7 » NL ) . AND . LL .LF . H JW2 C K » J7#NL 1) GO TO 315 
GO TO 318 

CAMLE-CAHLE*TFLP(K,NL ) 

GO TO 318 


1325 YC-YLF (KCH) 

XC-XLE (KCH) 

CALL 7CDX(XC#YC»CAMLF»DZ0Y) 


71-YC 

318 EP-ALPH(I) 

XC S"C OS ( E P ) 

XSS-SIN(EP) 

GO TO 317 

316 XCS-1. 

xss-o. 

CANLE-O. 

GO TO 317 
320 CANLE-0. 

ICT-ICAHT(K) , . „„„ 

IF(ICT.NE.O) CALI 7CP ( XC » YL E ( KCH ) , C A"L E » IC AM, 71 »K > IC T, 
1CH0R0» 07DY * I S T» TSW 1 
XCS-COS CALPHd 1 1 
XSS-S INULPH( I ) ) 

IF(NLEF(K).EQ.O) GO TO 317 

IF (LL . GE . NJW1 (K» J7* NL ) . ANO.LL.LF.N JW2(K» J7»Nl ) 1 GO TO 295 

GO TO 317 

295 CAMLE«CANLE+TFLP(K»NL> 

317 CONTINUE 
CAMY-070Y 
07DY-0. 

IFdCAM(K).LE.l) 71-0. 

F1-$0RT(1.*CAHLF**2) 

F2«S0RT( tl»*FTAN*FTAN )*CO0*COD* (CANLE*FTAN*S0P)**2) 

F12» F 1 *F2 

F3«COO*COO>CAMLE* (CAHLE*FTAN*SOO) 


VS 

5392 

vs 

5393 

vs 

539* 

vs 

5395 

vs 

5396 

vs 

5397 

vs 

5398 

vs 

5399 

vs 

5*00 

vs 

5*01 

vs 

5*0? 

vs 

5*03 

vs 

5*0* 

vs 

5*05 

vs 

5*06 

vs 

5*07 

vs 

5*08 

vs 

5409 

vs 

5*10 

vs 

?*n 

vs 

5*12 

vs 

5*13 

vs 

5*1* 

VS 

5*15 

vs 

5*16 

vs 

5*17 

vs 

5*18 

vs 

5*19 

vs 

5*20 ; 

vs 

f *?1 

vs 

5*22 

vs 

5*23 

vs 

5*2* 

vs 

5*2 F * 

vs 

5*26 

vs 

5*2? 

vs 

5*? p 

vs 

5*29 

vs 

5*30 

vs 

5*31 

vs 

5*32 

vs 

5*33 

vs 

5*3* 

vs 

5*35 

vs 

5*36 

vs 

5*37 

vs 

5*33 

vs 

5*39 

vs 

5**0 
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Of POOR QUALITY 


c 

c 


fa.-canie*coo+ftan*soo*cod 

IFUBS(C00).GT.0.1)F5-F12/SORT(F3*F3*FA*FA> 

IF(ABS(C00).LE.0.1)F5-1./FS 

FT»S0RT(1.+CANLE**?) 

FL«XSS-XC$*CAMLE 
FD— XCS-XSS*CAHLE 

CLPPS»CLPPS*PI/CH0RD+8MR(1» I)*FL/FT 
CLCI) , CLCI)*PI/CHORO+CT(I)*Fl/FT 
CN(I)«CML*PI/(CREF*CHORD) 
DIFF»BMR(1#I)-BNL(1»I) 

IFtDIFF.LT.O.) OIFF-O. 

BMRtl* I)-PENAINING L.E. THRUST 
01 FF« REMAINING THRUST-l . E .DRAG 
COPPS«COPPS*PI/CHORO+DIFF*FD/FT 

CO(I)"CD(I)*PI /CHORD+CT 1 1 J+FD/FT 

CLS(I )-CLS(I)*PI/CHOPO 

CLY(I)«CLY(I )*P I /CHORD+CT (I )*FL/FT 

CAXL-C AXLAPIC 

CLG1-CLG1*PIC 

C0P1-C0G1*PIC 

CMG1«CMG1*PIC/CRFF 

IF(LAT.EO.O) GO TO 220 

CONST-PI/CHORO 

CTH»PI/2.*S0RT(1 .-AH*AM*FS*FS)/FS 
iF(LAT.EQ.C-l)) GO TO 1355 
FBSR-FF 
FBSL-FF 


FRSR-1 . 

FR SI • 1 . 

IF(YY.GT.YBPBR(K#MA) ) 
IF(YY.GT.YBPBL(K,MA) ) 
FRSR-FRR 

IF (ABS(FPR-RTK) .GT. 
IF ( PBK .IT. 0.01 .AND 
887 CONTINUE 


FBSR-RTK 

FBSL-RTK 

0.01) GO TO 887 
. ABSCFRR-PTBL) 


.GT. 0.01) FRR-RTBR 


IF (RTBL .IT. 1.) RT-1.-«1.-RTK)*(1.-FRL)/(1.-«»T8L) 

IF ((l.-FRL) .GT. 0.01) FR$L*PT 

IF(MA.EO.l) FZ7-FF 

IF(HA<E0.1) FR1-FRR 

IF(HA.EQ.l) FP1-FPL 

IF (PBK .LT. 0.01) GO TO 888 

IF ( ABS(FRR-RTBL) .LT. 0.01) FRSL-RTK 

IF ( ABS(FRL-RTBL) .LT. 0.01) FRSR-RTK 

IF ( ABS ( F PR-RTK ) .GT. 0.01) GO TO 880 

PO-1* 

IF (RTBL .LT. 1.1 RO- 1 .-( l.-RTK )* ( 1 .-FRR ) / (1 .-RTBL ) 
IF ((FRR-RTBL) .GT. 0.01) FRSR-RO 
GO TO 880 


VS 

5441 

vs 

5442 

vs 

5443 

vs 

5444 

vs 

5445 

vs 

5446 

vs 

5447 

vs 

5448 

vs 

5449 

vs 

5450 

vs 

5451 

vs 

5452 

vs 

5453 

vs 

5454 

vs 

5455 

vs 

5456 

vs 

5457 

vs 

5458 

vs 

5459 

vs 

5460 

vs 

5461 

vs 

5462 

vs 

5463 

vs 

5464 

vs 

5 465 

vs 

5466 

vs 

5467 

vs 

5468 

vs 

5469 

vs 

5470 

vs 

5471 

vs 

5472 

vs 

5473 

vs 

5474 

vs 

5475 

vs 

5476 

vs 

5477 

vs 

5470 

vs 

<*479 

vs 

5430 

vs 

54 81 

vs 

5482 

vs 

5483 

vs 

5484 

vs 

5485 

vs 

5486 

vs 

5487 

vs 

5488 

vs 

5489 
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BPP IF (A8$(FPR-RTBL) .LT. 0.01) FRSR»FRR 
IF (ABS(FRL-RTRR) .LT. 0.01) FRSL-FRL 
IF(F7Z.GT.0.95) GO TO 880 
fp$r«frsr*fri 

FRSL-FRSL*FP1 

B80 CONTINUE 

IF(ID.EO.O) GO TO 892 
FBSR-1. 

FBSL-1. 

FRSR-l. 

FRSL-1. 

892 CONTINUF 

CYS«CYS*CONST • 

CNS-CNS*CONST 

CLBS-CLRS*CONST 

CYPS-CYPS+CONST 

CNPS-CNPS*CONST 

CLPS-CLPS+CONST 

CYRS-CYPS*CONST 

CNPS-CNRS*CONST 

CLRS-CLPSPCONST 

CLPVS-CLPVS*CONST 

CNR1“CNR1*C0NST 

CYSl-CYSl*CnNST 

CLRS1-CL8S1*C0NST 

CYR1-CYP1*C0NST 

CNR1»CNP1*C0NST 

CLR1-CLP1+C0NST 

SU*l-Y(2.I)*Y(2,I) 

SUH2-Y(3*I)*Y<3,I) 

SUM3-Y(4»I)*Y(*#I) 

SM11«Y(1»I)4Y(2#I) 


SH12- Y Cl* I )-Y ( 2 » I ) 
SM21»Y(1. I ) +Y ( 3 » I ) 
SM22«Y(1»I)-Y(3*I > 
SH31-Y<1,I)+Y<*,I) 
SM32-Y(l,l)-Y(4,I) 
IF(SMll.GE.O. .AND. 
IF (SM11.LT .0. 
IF(S M 21.GE.0. 
IFCSM21.LT. 0. 

IF (SM31.GF . 0. 
IFCSM31.LT. 0. 

521- 1. 

522- 1. 

$23-1. 

IF CSM11.LT.0.) 

IF (SM21.LT .0, ) 

IF (SM31.LT .0. ) 


SUH2-0. 

SUM3-0. 

SUH3-0. 


SM12.GE.0.) SUM1-0. 
. ANP.SM12.LT .0. ) SUM1-0. 
.AND. SM22.GE.O.) Sl'M2-0. 
.ANO. SM22.LT .0. ) 

.AND. SM32 . GE .0. ) 

.AND. SH32.LT.0.) 


S21 — 1. 

522— 1 . 

523— 1. 


VS 

VS 

VS 

VS 

VS 

VS 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 


5*90 

5*91 

5*92 

5*93 

5*9* 

5*95 

5*96 

5*97 

5*98 

5*99 

5500 

5501 

5502 

5503 
550* 

5505 

5506 

5507 

5508 

5509 

5510 

5511 
*51? 
5513 
531* 

5515 

5516 

5517 

5518 

5519 

5520 
5 C i?l 

5522 

5523 
6524 
5 r <25 

5526 

5527 

5528 
5 6 29 

5530 

5531 

5532 

5533 
553* 

5535 

5536 

5537 

5538 
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OF POOR QUALITY 


PBETA.2.*Y(1,I>*FTAN*6B*Y<2»I)*PBK 

SI0E-CTH*(2.*Y(1»I1*Y(2»I) + $UH1)*S21*F5 

SI0FP"SI0E 

*TOe«SIDE* (FPR+FPL )♦<). 5 

STDFPB-CTHMPBETA+PRL)*F5*(FPR*FPU*0.5 

!5oE>-CTM.(2..m.I)*r!3.IfSUHJ).S2J*F5 

liSE«'cTH*(2.*va.II*»'««I»*S u>,3, * S23 * F5 

SIDRR-SIDER 
fCRL-0.5*(FRSR+FRSL ) 

F8U-1. 

IF(ALP.GE.ABl) fbu-rtk 

IF (ALP .GE .AB3 ) FBUL-PTK . 

IFd.EO.NSCK) ) B*R(4#K)«0.5*<FBU+FBUL> 

IF«I.E0.NS(K)>BHRC5.K)-0.3*fFRSR*l.**«RT 
SIDFR«SI0ER-2.*Rl*YLE (KCH)/HALFB(1)*CSU(I)*FCRL 

SIDRPB-O. 

f ,?%;J:rT:" l 0n'' S ! Ol .F f .CTH.2..Y< ] .n.FT.~.C».Y.«.n.P3K. f ,. F 0.l 

SRG«0HM(I)*2«*GB/CH0RD 

PRG-OHH(I)*2.*BR/CHOPO 

SIRR»SinFR+RRG* c RSR 

SIRL*SIOER+RRG*FPSL 

SI0Rl-(SIRR*FRR+SIRL*FRL)*0.5 

$IBR-SIDEB+SRG*FBSR 

SIBL-SI0E8«-SRG*FB$L 

SID81* (SIBR*F8P+SIBL*FBL )*0.5 

ER-1. 

EL-1. 

IF(FRR.LT.0.95) FR-0. 

l v!lTF(JPT,2) SinEd.;iDM,SIOEB,SIOBl,FOR.F8l.FF»»F»L 

uoTTFCJPT*?) F P SR * F R$ L t F C R L t S I DR P B » F P® * ^ ^ - 
ADDITIONAL VORTEX LIFT ON THE LEFT OUTBOARD PANEL 

FBB-1 . 

IF ( ALP .GT. ALBDBl (K» IY ) ) FBB-RTBL 

IF(Ma!e 0.1.AN0.YY.GT.YBRBL(K»1) ) FBB-O. 
IF(IO.EO.l.ANO.ALP.GE.ALB0BL(K,l)) fbb-0. 


VS 

5339 

vs 

5340 

vs 

5541 

vs 

5542 

vs 

5543 

vs 

5544 

vs 

5545 

vs 

5546 

vs 

5547 

vs 

5548 

vs 

5549 

vs 

5550 

vs 

5551 

vs 

5552 

vs 

5553 

vs 

5554 

vs 

5555 

vs 

5356 

vs 

5557 

vs 

5558 

vs 

5559 

vs 

3560 

vs 

5561 

vs 

5562, 

vs 

5363 

vs 

5564 

vs 

5565 

vs 

5566 

vs 

5567 

vs 

5568 

vs 

5569 

vs 

5570 

vs 

5371 

vs 

5572 

vs 

5573 

vs 

5574 

vs 

5575 

vs 

5576 

vs 

5 5 77 

vs 

S57P 

vs 

5579 

vs 

55P0 


FBB-l.-(l.-RTBL)* 


vs 

vs 

vs 

vs 

vs 

vs 

vs 


5581 

5582, 

5583 

5504 

5565 

558o 

35P7 
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F6C*F8 B VS 

IFCHA.E0.2.AND.IAGVX.E0.0) FBC>0. VS 

$108 1- $1081+0. 5* CFBC-FBL*FBSL*FBB)*SRG -0.5»C1.-FF)9CSUCI)*FBB VS 
C WRITE C JPT#2 ) SIPE»$IDB1»SIDR1#FBB VS 

1355 CONTINUE VS 

YE-YB8+CYLECKCH)-YB)*C0D VS 

KA-LL VS 

ZYF-SOD*<7CPtKA)+7B+<YLE(KCH)-YB>+SOD>+COD*CYRB+CYLE<KCH)-YB)9COD)V$ 
F6-CCAHLE*COD+<CANLE+TAN*COD+SOD)+TAN*COD*COD)/F12 VS 

FD-FO+COO VS 

IFCLAT.EO.l) GO TO 1356 VS 

51- 1. VS 

IFCYCl,I).LT.O. ) SI— 1. VS 

52- 1. VS 

IF(NASYN.EO.l) GO TO 1365 VS 

IFCCYCl*I)+GAMPCI)).LT.O.) S2— 1. VS 

SUH-GAMPCI)+GANP(I) VS 

SMI- Y ( 1 » I ) + GAHP (I ) VS 

SN2-Y(1#I)-GAHP(I> VS 

IFCSM1.GF.O..ANP.SN2.GE.O.) SUN-0. VS 

IFCS*l.LT.O..AND.SN2.LT.O.) SUN-0. VS 

SIOF-CTH+ C2. + Y (1» I )*GAMR CI)+$UM)+S2+F5 VS 

1365 CONTINUE VS 

IF(NASYN.EO.l) SIPE-CTH*Y(l»I)*Y(lf I)*S1*F5 VS 

CtBl-CLBS+CONST— SI0E*ZYE/F1 VS 

CNB1-CNS + CONST + SIDE + SOO* CXLE(KCH)-XRFF) VS 

CLBS-CLBS+CONST— SI0F+7YE+F4/F12 VS 

CNS-CNS+CONST-SIDE* C YE*F 3 /F 1 2+ C XLE < K CM J-XPEF ) *F6 ) VS 

IFCIO.GE.NVPTX(K).AND.NVRTXCK).NE.O) GO TO 253 VS 

IFCIO.LF. NVRTX (K).ANO.HVPTX(K).NE.O) GO TO 253 VS 

GO TO 220 VS 

253 CIB1-CLBS VS 

CNB1-CNS VS 

GO TO 220 VS 

1356 CONTINUF VS 

YYP-ABS(SIDEP)+CHORD*SSN VS 

YYPR-O. VS 

YYB-ABS(SIDBB)+CHORO+GBC VS 

YYR- A8 S (SIORR )*CHORD*SSN VS 

IF C°BK .GT.0.01 ) YYP-ABS(SlDFP+SIPnB)PCHORD*SSN VS 

IF (PBK ,GT ,0.01 ) YYR-ABS(SIDBB+SIORR»*CHORO*SSN VS 

RP-DNNCI) VS 

IFCRP.GT. CHORD) PP-CHORO VS 

OXPP -R P*FS*SSN vs 

IFCYYP.GT.DXPP) YYP-DXPP VS 

IFCYYR.GT.OXPP) YYR-DXPP VS 

IFCORR.LT. YYR ) ORP-YYR VS 

IFCIRL.EO.l.AND.YYR.LT.YYP) YYR-YYP VS 

IFCOR.LT. YYP) DR-YYP v * 


55BB 

5509 

5590 

5591 

5592 

5593 

5594 

5595 

5596 

5597 

5598 

5599 

5600 

5601 

5602 

5603 

5604 

5605 

5606 

5607 

5608 

5609 

5610 

5611 

5612 

5613 

5614 

5615 

5616 

5617 
5616 

5619 

5620 

5621 

5622 

5623 

5624 

5625 

5626 

5627 

5628 

5629 

5630 

5631 

5632 

5633 

5634 

5635 

5636 
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CRIGifiAL PAGE IS 

OF POOR QUALITY 


VS 

TFpisOO*(7CP(KA)*ZB*(YLE(KCHJ-VYP-YB)*SOO)*COO*CYBB*CVLE(KCH)-YVP VS 
l VEB»SOO*(ZCPtKA )*ZB+(YIE(KCH)-YYB-YM*S0D)*C0D*<YBB*!YIE(KCH)-YY6 VS 
NfrUoD*<ZCP(KA H 7BdYlE(KCH)-YYP-YB)*SOD)*COD*<YB«*tYlE(KCH)~YYR VS 

1 YEPB«SOD*(ZCP<KA)+ZB+(YLF {KCH)-YYPB-YB)*SCD)*COD*(YBB*(YLE(KCH)- 
1YYPB-Y8)*C00) 

CYBl-CYSl-SIOBl^SOD/Fl 
CNBI-CNB1+SI0B1*S0D*(XLE(KCH)-XREF) 

CLB1“CL8S1-SI0B1*YFB/F1 

CYPl*CYPS**(SIOE + SIDEPB)*SQO/Fl • 

CNPl-CNPS^(SIDE+SIOFPB)^SOD*(XLEC<CH)-XREF) 

CLPVS*CLPVS— SIOE*YEP/F1-SIOEPP*YEPB/F1 
CPCVS" (SIDE+SIOEPB) /FI 
CRCVS-(SIDER+SIDRPB)/F1 
CBCVS-SIDB1/F1 

CYR1"CYR1“(SIOR1+SIDRPB)*SOO/F1 

CNPl«CNRl4’(SIOPl + SIOPPB)*SOO <, (XLE(KCH)-XRFF) 

CLR1"CLR1— SIDR1*YER/F1”SI0RPB*YE°B/F1 

SIOE-SIDEP 
CYPS“CYPS+SIDE*Ffc 
CNPS-CNPS-SIOE*YF*F3/Fl? 

CNPS-CNPS-SIDE*(XtE(KCH)-XPEF)*F6 
CLPS«CLPS-SI0E*ZYE*F4/F12 

CYS-CYS*SIDEB*F6-CT(I)*FD/FT*BK 

CNS-CNS-SinEB*YE*F3/F12*CT(n*EB/FT*BK*(XLE(KCH)-XREF) 
CNS»CNS-SI0EB*(XLE(KCH)-XRFF)*F6 
CL8S«CIB$-$IDEB*ZYE*F4/F12 

CYRS«CYPS+$IDEP*F6*CT ( I) *F0/FT*(XLE ( KCH J—XRFF )/HALFfi(l) vB L 
CNRS »C NR S— S I DER* YE*F3/ FI 2— CT < I )*FD/FT*( XIF (KCH 1—XREF ) /HAIFB (1 ) ^PL^VS 
KXLE(KCH)-XREF) 

CNRS-CNRS-$I0ER*(XIE(KCH)-XREF)*F6 
CIRS»CIRS-SIDER*ZYE*F4/F12 
IF (IO.GF.NVRTX(K) . AND . NVPTX ( K ) .NF . 0 ) 

iF(IO.LE.NVRTX (K) .AND.MVRTXIK ) .NF.O) 

GO TO 251 
250 CYB1-CYS 
CNBl-CNS 
CLB1-CLBS 
CYP1-CYPS 
CNP1-CNPS 
CIPVS-CLPS 
CYR1-CYPS 


VS 

VS 

VS 

VS 

VS 

VS 

VS 

VS 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 


GO 

GO 


TO 

TO 


250 

250 


251 

220 


CNR1 "CNRS 
CLR1-CLPS 
CONTINUE 
CONTINUE 


VS 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 


5637 

5638 

5639 

5640 

5641 

5642 

5643 

5644 

5645 

5646 

5647 
564 P 

5649 

5650 

5651 
565? 

5653 

5654 

5655 

5656 

5657 

5658 

5659 

5660 

5661 

5662 

5663 

5664 

5665 

5666 

5667 
56 6 R 

5669 

5670 

5671 

5672 

5673 
5574 

5675 

5676 

5677 

5678 

5679 

5680 

5681 

5682 

5683 

5684 

5685 
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ORKaiNAL PAGE IS 

QF POOR QUALITY 


KC»1 


210 


DHM(I)«0. 
GO TO 252 
GO TO 252 


IF Cl .IT. NCOL) GO TO 210 
KLfNCOL-1 

^^GT.l.ANO.l.EO.CNSCK-imn 

NCOL^NCOl+UtK'KC 
kl-i-ku 

Ai-CHORO*SJ(K#Kt#KC)*WIOTH(K»KC)/FH 

*A«AA*F ATR 

Clf-CLT+CLCI )*AA 
CMT-CHT«-C8(I>*AA 
COT-COT+CDCI ) *AA 
C1PP“CLPP*CLPPS*AA 
COPP“COPP*COPPS*AA 
CLGM-CLGM>CLG1*AA 

COGH“COGM+COG1*A A 

: IM10# Gf!i NVRTX (K )#AND.NVPTXCK).NF.Oj 

iFCIO.LE.HVRTX(K).AND.MVRTy(K).NE.O) 

IFCIO.GE.NVRTXCK) .AHO.NVPTX(K).NE.O) 

IF ( I 0 « L E < MVRTX ( K ) * ANO . 8VR TX C K ) . NE . 0 ) 

YOYLECKCH) 

RR-A8S(CSU(I) )*CHORO 
XC-XLECKCHl+RR 

ifcxc.lt.xteckchu GO TO 2100 
CAHLE-O. 

C A HY ■ 0 • 

GO TO 2101 
XY-RR/CHOPO 
02-XLE (KCH) 

CAHLE-100. 

CALL K«<*Y.YC,CABIE.ICAB, 0 Z.K,1,CKO»O.CABY, 

'lEUCABClII.EO.S) CALL JC« IXC.YC. CABLE. KAB.OJ.E.L.CHOHO.CABY. 
1 IMICAB(Kt.EQ.2l CALI 7C0Y (XC t YC»C ABLE.CABY) 

2101 ft "SOATL ( l.+C ABLE *C ABLE) *COOACOO+( S00+CABY*C0D)**2) 

' OX A* 0 . 

EFFC-1. 

EFFB-1. 

IFCI.GE.RVL1CJA) .ANO.l .LE.HVL2CJA) ) C-0 TO 261 

GO TO 262 - 

IFCI.NE.NVLKJAl) GO TO 263 

aughenteo vortex lift EFFECT 
IF CIBD.EO.O 1 GO TO 263 


2100 


261 


VS 5686 
VS 5687 
VS 5688 
VS 5689 
VS 5690 
VS 5691 
VS 5692 
VS 5693 
VS 5696 
VS 5695 
VS 5696 
VS 5697 
VS 5698 
VS 5699 
VS 5700 
VS 5701 
VS 5702 
VS 5703 
VS 5706 
VS 5705 
VS 5706 
VS 5707 
VS 5708 
VS 5709 
VS 5710 
VS 5711 
VS 5712 
VS 5713 
VS 5716 
VS 5715 
VS 5716 
VS 5717 
1ST, VS 5718 
VS 5719 
1ST* VS 5720 
VS 5721 
VS 5722 
VS 5723 
VS 5726 
VS 5725 
VS 5726 
VS 5727 
VS 5728 
VS 5729 
VS 5730 
VS 5731 
VS 5732 
VS 5733 
VS 5736 


ORIGINAL PAGE IS 

OF POOR QUALITY 


XP-AUX(K»N8)-XRR 

DX«0. 

IF(ABS(XR).GT.l.E-3) DX-ABS f XTILTI JA) /XR ) 
OA-REDBD(DX) 

A0RN-ALPBD(K#MA)-DA*PI/18O. 

ABRNB«AIBDBR(K>MA)-DA*PI/1B0. 

A8RNL-ALBDBL ( K, HA )-DA*P I / 1 80. 

IF(ABRNB.LT.O. > ABRNB-O. 

IF(ABRN.LT.O. ) ABRN-O. 

263 CONTINUE 
EFFC-1. 

EFFB-l. 

EFFO-1. 

XNV-O. 

XMVB-O. 

XCT-XT ILT ( JA ) 

IF(IBO.EO.O) GO TO 27* 

IF(ALP.LT.ABRN) GO TO 269 
IF(ALP.GE.AIPBD(K»MA>) GO TO 26* 

DAP-( ALP-ABRN)*180.XPI 
0XP-80PT(DAP) 

FRTN-1. 

IFtABS (XCT) .GT.1.E-3J FRTN-DXP*XR/XCT 
IF(FRTN.GT.l. ) FPTN-1. 

GO TO 265 
26* FPTN-1. 

265 CONTINUE 

XHV- 0.5*(1.-FRTN)**2+FRTN*( l.—O »5*FRTN ) *RTK 
XHV«(XHV/( l.-FPTN +FRTN*RTK)-0.5)*CTILT<JA) 
EFFC-l.-FPTN+FRTNPRTK 
IF(EFFC.GT.l. ) EFFC-1. 

IFCFF.LT.l.) EFFC-1. 

269 IF (L AT.NE.l ) GO TO 272 
DAO- ( ALP-ABRNL ) *1 80 */P I 
DXP-O. 

OAP- ( ALP-ABPNB)*1B0./PI 
IF (DAP .GT .0. ) DXP-BDPT (DAP ) 

DXO-O. 

IF (DAO.GT.O. ) DXO-BDPT (DAO) 

FTN-1. 

IF (AB$ (XCT).GT.l.F— 3) FTN-DXP*XR/XCT 
IFtFTN.GT.l.) FTN-1. 

FTNL-1. 

IF(ABS(XCT) .GT.l.E-3) FTNL«DXO*XR/XCT 
IF (FTNL.GT.l . ) FTNL-1. 

IF(ALP.LT.ABRNB) GO TO 272 
IF<ALP.GE.ALBDBR(K#MA> ) FTN-1. 

, IF (ALP .GE.ALBDBL ( K» MA ) ) FTNL-1. 

271 XMVJL-Q. 5* < l.-FT N)» » 2+FTN*Cl»-0«5*FTN)*RTBR 


VS 5735 
VS 5736 
VS 5737 
VS 5738 
VS 5739 
VS 57*0 
VS 57*1 
VS 57*2 
VS 57*3 
VS 57** 
VS 57*5 
VS 57*6 
VS 57*7 
VS 57*8 
VS 57*9 
VS 5750 
VS 5751 
VS 5752 
VS 5753 
VS 575* 
VS 5755 
VS 5756 
VS 5757 
VS 575P 
VS 5759 
VS 5760 
VS 5761 
VS 5762 
VS 5763 
VS 576* 
VS 5765 
VS 5766 
VS 5767 
VS 5768 
VS 5769 
VS 5770 
VS 5771 
VS 5772 
VS 5773 
VS *77* 
VS 5775 
VS 5776 
VS 5777 
VS 577? 
VS 5779 
VS 5780 
VS 5701 
VS 5782 
VS . 5783 
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fltZJLT- 



2 72 


273 

274 


262 


902 


2 66 


252 


X HV8-<XHVB/d.-FTN*FTN*RTBR)-0.5)*CTIlTtJA> 

efb-i.-ftn*ftn*rtbr 

EFF0-1 .-FTNl+FTNl*RTBL 
EFFB«0.5*(EFB+EFFD) 

IFfEFFB.GT.l. ) EFFB*1. 

IF(F8R.LT.l. .OR. FBI. IT. 1.) EFFB-1. 

IMNVl 2C J A) .EO.NS(K) • AND. I. EO.NS CK 1 ) GO TO 273 
GO TO 262 

BHR(3#K)-XMV 
GO TO 262 

IFd.NE.NS(K) ) GO TO 262 
BMR( 3 # K ) •O. 

BMR(3.K)-0. 

CPCWt <K)«RRT 
BHLt 4 * K ) “RRT 
BMRC5»K)«RRT 
BHR{4#K)-RRT 
Xld.Kl-1. 

CONTINUE 

CSU(I )«CSt)d)*FF 
OMM( I ) -CSU( I )*CHOPO 

CDVL «CDVL*CSU (I )* (-CAMLE*XCS*XSS ) /FT*COO+AA 

AUGN-CSU(I)MCAMLE*XSS^XCS)/FT*C0D*AA 

CSL-CSL+AUGM 

CAX«CAX*CAXL*AA 

CAXV*CAXV+CSUd )* (-CAMLE )*COO/FT*AA 
CAVS CI)»CSU(I)*(-CANLE)*COOAFT*AA 
PM-XIE (KCH)+71*CAMLE-XREF 
CSXL-CSXL-CSUd )*PM*AA*COD/FT 

IF(JA.EO.l) CSNW-CSNW* (CSUd l+CVRI I)*FF )*AA*EFFC 

IF(MZ.NF.IO) GO TO 902 
CU-CVR (I )*FF 

OHM (I)“DM(MI)*CU*CHORD . . 

CIDV-CLDV+CU* (C AMIF*XSS+XCS) /FT*COO*AA 

CHDV»C HOV-CU*PH*AA*COO/FT 
CDOV"CDDV*CU* t-CAHLE*XCS*XSS) /FT*COD*AA 

WRITE ( JPT»2) EFFC»FF»YY»XTE(KH)#AUX(K»IPN) *FATR 

IF (I .GE.NVll ( JA) .AND. I .LE.NVL2( JA) ) GO TO 266 

GO TO 252 

CONTINUE 

CSAUG-CSAUG*AUGM*EFFC*CTIITUA)/SIETH(JA) 

CMAUG»CMAUG-AUGM*EFFC* (XCNTOt J A ) +XHV ) *C TILT ( JA)/SLETH( JA) 

CONTINUE 

IF (L AT.EO.O ) GO TO 221 
IF(LAT.EQ.l) GO TO 1357 
Cll-CUKIBS*AA 
CILV«CILV+CLB1*AA 


VS 

5784 

vs 

5785 

vs 

5786 

vs 

5787 

vs 

5788 

vs 

5789 

vs 

5790 

vs 

5791 

vs 

5792 

vs 

5793 

vs 

5794 

vs 

5795 

vs 

5796 

vs 

5797 

vs 

5798 

vs 

5799 

vs 

*800 

vs 

5801 

vs 

5802 

vs 

5803 

vs 

5804 

vs 

5805 

vs 

5806 

vs 

5807 

vs 

5808 

vs 

5809 

vs 

5810 

vs 

5811 

vs 

5812 

vs 

5813 

vs 

5014 

vs 

5815 

vs 

5816 

vs 

5817 

vs 

5818 

vs 

5919 

vs 

5820 

vs 

5321 

vs 

5 R 22 

vs 

5823 

vs 

5824 

vs 

5825 


VS 5826 
VS 5827 
VS 5820 
VS 5829 
VS 5830 
VS 5831 
VS 58-32 
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ORlQiNAL P;.C;" !3 

OF POOR QUALITY 


CNL»CNL+CNS*AA 
CNLV»CNLV*CNB1*AA 

r WRITE ( JPT* 2 ) CLl.ClLV,CNt,CNLV 

60 TO 221 
1357 CONTINUE 

CY«CY+CYS*AA 
CNB«CNB+CNS*AA 
CLB«CLB+CLBS*AA 
CYP»C YP+CYPS*AA 
CNP«CNP+CNPS*AA 
CLP“CLP*CLPS*AA 
CYP»CYR+CYRS*AA 
CNR-CNR*CNRS*AA 
CLRR“CLRR*CLRS*AA 
CLPV»CLPV+CLPVS*AA 
CYPV"CYPV*CYP1*AA 
CNPV»CNPV*CNP1*AA 
CYRV«CYRV*CYR1*AA 
CNRV«CNRV*CNR1*AA 
CLRRV-CLRRV+CLR1*AA 
CYBV»CYBV+CVB1+AA 
CNBV-CNBV*CNB1*AA 
CLBV»CLBV*CLB1*AA 

IFd.GE.NVLK JA).AN0.I.LE.NVL2< JA)) 

GO TO 221 

2091 FAUG-CTILK JA)/SIETH( JA) 
FAUGB-FAUG*FFFB 

IF(YYB.LT.DBB) YYB-DBP 

YAUGB“F AUGB* ( YCNTD ( J A )— YY8 ) /HALFB 1 1 ) 

XAUGB «F AUGB* ( XCNTD(JA)+XHVB)/HALFB(1) 
FAUG-F AUG*EFFC 

YAUG-FAUGM YCNTO( J A )-YYP ) /HALFB (1) 

XAUG»F AUG* ( XCNTD ( J A ) *XMV) /HALFB tl) 

CYPVA»CYPVA-CPCVS*AA*FAUG*SOD 

CLPVA-CLPVA-CPCVS*AA*YAUG 

CNPVA«CNPVA+CPCVS*AA*XAUG*SOn 

CYBVA»CYBVA-CBCVS*AA*FAUGB*SOD 

CL8VA»CLBVA-CBCVS*AA*YAUGB 

CNBVA«CNBVA+CBCVS*AA*XAUGB*SOD 

CYRVA«CYRVA-CRCVS*AA*FAUG*$OD 

YAUG»FAUG*t YCNTD (JA )-YYR ) /HALFB (1 ) 

CLRRVA-CLRRVA-CRCVS*AA*YAUG 

CNRVA«CNRVA*CRCVS*AA*XAUG*SOD 


GO TO 2091 


221 CONTINUE 

IF (I • E0.NVL2 ( J A ) ) JA-JA+1 
HH-MM+NW(K*1) 

IFCI.EO.NS(K) ) CPSWL(K)-IPN 
IFdWING(K).NE .0. AND. I .EO.IWINGCK) ) 
IF (I • EO.NCS ) GO TO 215 


GO TO 217 


VS 

5833 

vs 

583* 

vs 

5835 

vs 

5836 

vs 

5837 

vs 

5838 

vs 

5839 

vs 

5840 

vs 

5841 

vs 

5842 

vs 

5843 

vs 

5844 

vs 

5845 

vs 

5846 

vs 

5847 

vs 

5048 

vs 

5849 

vs 

5850 

vs 

5851 

vs 

5852 

vs 

5853 

vs 

5854 

vs 

5855 

vs 

5856 

vs 

5857 

vs 

5858 

vs 

5859 


vs 

5860 

vs 

5861 

vs 

5862 1 

vs 

5B63 

vs 

5B6A 

vs 

5e65 

vs 

5B66 

vs 

5867 

vs 

5868 

vs 

5869 

vs 

5870 

vs 

5871 

vs 

5872 

vs 

5873 

vs 

587A 

vs 

5875 

vs 

5876 

vs 

5877 

vs 

5878 

vs 

5879 

vs 

5880 

vs 

5881 
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IFCI.EO.NS(K) > GO TO 217 

VS 

5882 


IFCYLECKCHn).LT.YBREAKCK,IPN>) GO TO 215 

VS 

5883 

217 

CONTINUE 

VS 

5884 


NI-0 

VS 

5885 


IF (NASYM.E0.1. AND.IPN.LT. NCI) NI-1 

VS 

5886 


IF(NI.EO.l) IPN-IPN+1 

VS 

5887 


7B-ZB+ (Y8REAK (K * I PN )-YB ) *DS IN <K ♦ IPN ) 

VS 

5888 


YBB-YBB+CYBREAK ( K , I PN ) -YB ) *OCOS ( K# IPN) 

VS 

5889 


YB-YBR EAK (K» I PN ) 

vs 

5890 


IFCIWING<K) .NE.O.AND.I.EO.IWINGCK) ) GO TO 218 

vs 

589] 


IFd.EO.NS(K) ) GO TO 218 

vs 

58«2 


GO TO 219 

vs 

5803 

218 

SOW-SOD 

vs 

5894 


COW-COD 

vs 

5895 


YPRW-YBB 

vs 

5896 


YRW-YB 

vs 

5897 


ZPRW-ZB 

vs 

5898 


YBKW-YBREAK(K.IPN) 

vs 

5899 


IFdWGLT(K).EO.l) GO TO 219 

vs 

5900 


ZB-O. 

vs 

5901 


YB-BR E AK ( K , 1 ) 

vs 

5902 


YBB-BREAK (K #1 ) 

V5 

5903 


IFCI.EO.NSCK) . AND. K. IT. 6) YB-BREAK<K*1»1) 

vs 

5904 


IFd.EO.NS(K) . AND. K. IT. 6) YBB-BREAK CK*1»1) 

vs 

5905 


IF d WGLT ( K ) «NE • 2 ) GO TO 219 

vs 

5906 


ZB-YBREAK (K ,NC (K )-2 )*DSIN(K,1 ) 

vs 

5907 


YBB-YBREAK(K»MC(K)-2)*DC0S(K»1) 

vs 

5908 


YB-YBREAK(K,NC(K )-2) 

vs 

5909 


YPRW-Y8B 

vs 

5910 


YRW-YB 

vs 

5911 


ZPRW-ZB 

vs 

591? 

219 

CONTINUE 

vs 

5913 


IFCNI.NE.l) IPN-IPN+l 

vs 

5914 

215 

CONTINUE 

vs 

5915 


IFCI.EO.NSCK)) IPN-1 

vs 

5916 


IF(LL.E0«NJW2(K»?»NL) ) NL-Nl+1 

vs 

5917 


IF(LL .EO.LPN(K) ) NL-1 

vs 

5918 


IFd.NE.NS(K) ) GO TO 1401 

vs 

5919 


XCK,1 )«ZPPV 

vs 

5920 


XCK, 2 )«YPRW 

vs 

5921 


XCK, 3 ) -SOD 

vs 

5922 


X( K# 4 ) -COD 

vs 

5923 


XCK* 5 ) -SOW 

vs 

5924 


X CK» 6 ) -COW 

vs 

5925 


X CK» 7 ) -YRW 

vs 

5926 


XCK,8 ) -YBKW 

vs 

5927 


X(K»9)-YBB 

vs 

5928 


XCK* 10 )-YB 

vs 

5929 


XCK, 11 )-ZB 

vs 

5930 
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GO 

GO 


TO 

TO 


2102 

2102 


-1) 


1401 CONTINUE 
- KCH-KCH+l 

IF(TWING(K) .EO.O) 
XFlI.NE.IWiNGtK)) 

CLWL(K)»CLT 
CHWL(K)"CNT 
COWL ( K ) “C DT 

2102 CONTINUE ■ ■ ■ 

IFd.NE.NS(K) ) GO TO 150 
CLW(K ) «CtT 
CHV(tO-CHT 
CDW(K)«CDT 

IF(NW(K»2) .EO.O) GO TO 153 
IF(K.EO.l) KCM-KCH+NS(K) 
IF(K.GT.l) KCH-KCH+NSIKI-NSU- 
CONTINUE 
MN-0 

JK-IPN(K) 

IF(LL.EO.LPN(K)) K-K + l 

WR ITE ( JPT * 2 ) DYB ( 1 ) »DYR 1 1 ) 

IF IIAT.EO. (-1 ) ) GO TO 135P 
CYBVSE-CYBV 
CNBVSE "CNP V 
CLBVSF -CIBV 
CYPVSE-CYPV 
CNPVSE-CNPV 
CLPVSE-CLPV 
CYRSF-CYRV 
CNPVS E "CNRV 
CLRVSE-CLPPV 
3 5P CONTINUE 


153 


150 


SIOE-EDGE EFFECT 


C 


COVS-O. 

civs-o. 

CNVS-O. 
CLNSE-CLL 
CNNSF "CNL 
CINSEV-CLIV 
CNNSEV-CNIV 


* X * 1 • 

IF(APS ( CTX ) .GT. 0.001) CX-CTX 

UR1TE UPT#2) S CPCWL(IIf OYB m»OYR(l) 

IF(MVRTXCI),NE. (NS < 11*1 70 189 

CTIP-CTP(Itl) * DC J3_S_t I » N [VI N 6 < I H 


VS 5931 
VS 5932 
VS 5933 
VS 5934 
VS 5935 
VS 5936 
VS 5937 
VS 5938 


VS 

5939 

vs 

5940 

vs 

5941 

vs 

5942 

vs 

5943 

vs 

5944 

vs 

5945 

vs 

5946 

vs 

5947 

vs 

5940 

vs 

5949 

vs 

5950 

vs 

5951 

vs 

5952 

vs 

5953 

vs 

5954 

vs 

5955 

vs 

5956 

vs 

5957 

vs 

5958 

vs 

5959 

vs 

5960 

vs 

5961 

vs 

5962 

vs 

5963 

vs 

5Q&4 

vs 

5965 

vs 

5966 

vs 

5967 

vs 

5968 

vs 

5969 


VS 5970 
VS 5971 
VS 5972 
VS 5973 
VS 5974 
VS 5975 
VS 5976 
VS 5977 
VS 5978 
VS 5979 
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CTIP«CTIP*CPCWLU ) 

|F(IMGLT(I)»NE«0) CTIPP-CTP t I*2>*DC0$CI*NWTNMI>M > 
IF(NASYM.EO.l) CTIP-CTIP*CTP(It2i*OCOSCI#NC(in 
KK«NS ( I J 

IF(IMING(I).NE.01 KK-IWING(I) 

COVS-COVS+CTIP*SNALP(KK)*CTIPP*SNALP(NS(I)) 

CtVS-CLVS+CTIP*CNALP{KK)+CTIPP*CNALP(NS(in 

CHVS-CNVS*CTIPM la-BMR(3»I > /CXJ+CTIPP 


ie«» CONTINUE 

IF(LAT.EO.O) GO TO 222 
00 1321 K«1,NSUP 
RRT-CBMR(K) 

MA-1 

IF(NSTP (K ).NE .0) NA-2 
NC NT ■ 1 

IF (IWING(K).NE.O.OR.NASYP.EO.l) NCNT-2 

00 ? 23 KK-1 #NCNT 

FATR-1. 

IF (IV(K).FO.l) FATR-0.5 


Kl-KK 

IF(NASYN.EO.l) GO TO 22P 
IF(IWINGCK) .EQ.O) GO TO 229 
IF (KK ■ EO • 2) GO TO 229 
SS-X(K»5) 

CS«X(K»M 
YB2* X { K » 2 ) 

YR1»X(K»7) 

2B1-X(K#1) 

YKP»X(K»B) 

IF (KK , EO a 1 ) GO TO 2 2A 
229 CONTINUE 

IF (KK . EOa 2) Kl-KK + 1 
If(KK.FO.l) GO TO 1366 
IF (NAS YH a EOaO ) GO TO 1366 
SS-DSIN(K.l) 

CS-OCOS (K»l ) 

YB2-YBBK 

YB1« YBREAK ( K » 1 ) 

7BI-7BK 

YKP-BREAK(K#1) 

GO TO 224 
1366 CONTINUE 
SS-X(K»3) 

CS«X(K>4) 

YP2»X( K#9) 

YBl-X(K.lO) 

2B1«X ( K» 11) 

IPN-CPSWL(K) 


VS 5980 


VS 

5981 

vs 

5982 

vs 

5983 

vs 

5984 

vs 

5985 

vs 

5986 

vs 

5987 

vs 

5988 

vs 

5989 

vs 

5990 

vs 

5991 

vs 

5992 

vs 

5993 

vs 

5994 

vs 

5995 

vs 

5996 

vs 

5997 

vs 

5998 

vs 

5999 

vs 

6000 

vs 

6001 

vs 

6002 

vs 

6003 

vs 

6004 

vs 

6005 

vs 

60C6 

vs 

6007 

vs 

6003 

vs 

6009 

vs 

6010 

vs 

6011 

vs 

601V 

vs 

6013 

vs 

6014 

vs 

6015 

vs 

6016 

vs 

6017 

vs 

6010 

vs 

6019 

vs 

6020 

vs 

60*1 

vs 

6022 

vs 

6023 

vs 

6024 

vs 

6025 

vs 

6026 

vs 

6027 

vs 

602* 
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YKP-Y8REAK(K»IPN) 

224 ISN-1 

FN-N V ( K # 1 ) 

NCW-NV(K#1)4NV<K»2) 

00 2?5 J-1#NCW 
JJ-J 

IF(J.LE»NW(K»1) ) GO TO 226 
ISN-2 

FN-NVCK.2) 

JJ-J-NW(K,1> 

1(1 bV V il 

IF (KK . EO. 2 ) Kl-KK+2 
226 FJJ-JJ 

C VR ITE ( JPT# 2 ) SS»CS#YB2#T81»ZB1»YKP 

XY 2*Y ( 4+K # J ) 

IF(KK.F0.2) XYZ-Y(10*K,J> 

ZCV“CS*{7B1+(YKP-YB1)*SS)— SS*(YB2*( YKP—YB1 )*CS) 
YCV«SS*(ZB1+(YKP-YB1)*SS)*CS*{YB2+(YKP-YB1)*CS) 
X0-YCN(K>Kl>+0.5*CH0RDT(K»Kl)*tl.-C0S( ( 2 .*F J J-l . >*P I / ( 2 .*FN ) ) ) 
XQ-XO-XREF. 

IF (L AT • EO • 1 ) GO TO 1359 
FKN-O. 

IF(NASYM.EO.O) FKN-SE (2»K » J ) 

IF(NASYK.E0.0.AND.KK.E0.2) FKN-DUHT(2#K, J J 

51- 1. 

S3-1. 

IF {NASYM. EQ.O) GO TO 1367 
IF<XYZ.IT.0..AND.KK.E0.1) SI— 1. 

IF(XYZ.GT.0..AN0.KK.E0.2) SI— 1. 

IFCXY7.LT.0.) S3 — 1. 

GO TO 1368 
1367 CONTINUF 

52- 1. 

IF((XYZ*FKN).lT.O.) S2— 1. 

SUM-FKN*FKN 

SM1-XYZ+FKN 

SM2-XYZ-FKN 

IF(SM1.GE.O..ANO.SM2.GE.O.) SUM-0. 

IF(SM1.LT.0..AND.SM2.LT.0.) SUM-0. 

136B CONTINUE 

IFCNASYM.EO.O) CK -CHORDT ( K ,K1 ) * ( 2 . *XY7*FKN«-SUH) *S2*SN ( K» J J » ISN ) 
IF(NASYH.EO.l) CK -CHORDT ( K,K1 >*XYZ*XYZ*$1*$N(K#,IJ, ISN) f FN 
CK-CK*FATR*CS 
CLL-CLL+CK/CS*2CV*PIS 
CNL-CNL-CK*XO*PIS 
CUV-CLLV-CK/CS*YCV*PIS*S1*S3 
CNtV-CNLV+CK/CS*SS«‘PIS*X0*Sl*S3 
60 TO 225 
1359 CONTINUE 


VS 

6029 

VS 

6030 

vs 

6031 

vs 

6032 

vs 

6033 

vs 

603 A 

vs 

6035 

vs 

6036 

vs 

6037 

vs 

6038 

vs 

6039 

vs 

6040 

vs 

6041 

vs 

6042 

vs 

6043 

vs 

6044 

vs 

6045 

vs 

6046 

vs 

6047 

vs 

6048 

vs 

6049 

vs 

6050 

vs 

6051 

vs 

605? 

vs 

6053 

vs 

6054 

vs 

6055 

vs 

6056 

vs 

6057 

vs 

6058 

vs 

6059 

vs 

6060 

vs 

6061 

vs 

6062 

vs 

6063 

vs 

6064 

vs 

6065 

vs 

60.‘>6 

vs 

6067 

vs 

6068 

/ C NVS 

6069 

vs 

6070 

vs 

6071 

vs 

6072i 

vs 

6073 

vs 

6074 

vs 

6075, 

vs 

6076’ 

vs 

6077 
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Sl-1 * 

IF (NASYH.EQ.l .AND. KK.EO.2) SI— 1. 

SE1"S F ( 1iK» J ) 

SE2-SF(2iK,J) 

SE3-SE (3>K» J) 

IF(KK.EO.l) GO TO 1309 

SE1-DUHT(1»K, J) 

SE2“OUHT ( 2 » K * J ) 

$E3-0UHT(3*K, J > 

13P9 CONTINUE 

SUM1»SE1*SE1 

SUH2-SE2*SE2 

SUH3-SE3*SE3 

SH11-XY7+SE1 

SH12-XYZ-SE1 

SH21-XYZ+SE2 

SH22-XYZ-SE2 

SH3WY7+SE3 

SH32-XY7-SE3 

IF (SH11.GE.O. .AND. SH12.GE.O.) SUHl-O. 

IF (SN11.1T.O. . AND. SH12.LT. 0. ) SUHl-O. 

IF(SM21.C'F.O. .AND. SH22.GE.0.) SUH2-0. 

IF (SH21.LT.0. .AND. SH22.LT.0.) SUH2*0. 

IF (SH31.GE.0. .AND. SH32.GE.O.) SUN3«0. 

IF (SH31.LT. 0. .AND. SH32.LT.0.) SUH3«0. 

521- 1. 

522- 1. 

523- 1. 

IF (SHll.LT.O. ) S21—1 • 

IF (SH21.LT. 0. ) S22--1. 

IFISH31.LT.0. ) S23— 1. 

CK»C HORDT ( K »K 1 ) *( 2.*XY7*SF1*SUH1 )*SN (K » J J » ISN) /FN 
CK2»CH0PBT ( K * K1 ) ♦ ( 2 .* X YZ* SF2 + SUH2 ) PSN(K,JJ»I5N)/FN 
YRF-HALFR (K ) 

IF (NASYH.EO.l .AND. KK.EO.2) YRF«PREAK(K»1 ) 

IF (NASYH.fc'0.0 .AND. KK.F0.2) YP F ■ YBRF AK ( K »KC (t< ) ) 

SUH3-SUH3-2.*RL*YRF/HALFB(l)*XYZ*XY7*BHRe?.K) 

CK3-CH0RDT( K»K1 ) * ( 2 .*X Y7* SF 3+SUH3 ) *SN(K* JJ*I5N) /FN 

CK »C K*RRT 

CK2-CK2*RRT 

CK3-CK3*RRT 

CK»CK*FATP*CS*S1*S21 

CK2-CK2*FATR*CS*S1+S22 

CK3-CK3*FATR*CS*S1*S23 

CY-CY+CK2*PIS 

CN8»CNR-CK2**0*PIS 

CLB»CLB*CK2/CS*ZCV*PIS 

CYP»CYP+CK*°IS 

CNP«CNP“CK*XQ*PIS 


VS 0070 
VS 6079 
VS 6080 
VS 6081 
VS 6082 
VS 6083 
VS 6004 
VS 6083 
VS 6006 
VS 6087 
VS 60P8 
VS 6089 
VS 6090 
VS 6091 
VS 6092 
VS 6093 
VS 6094 
VS 6095 
VS 6096 
VS 6097 
VS 6008 
VS 6009 
VS 6100 
VS 6101 
VS 6102 
VS 6103 
VS 6104 
VS 6305 
VS 6106 
VS 6107 
VS 6108 
VS 6109 
VS 6110 
VS 6111 
VS 6112 
VS 6113 
VS 6114 
VS 6135 
VS 6116 
VS 6117 
VS 611? 
VS 6119 
VS 6120 
VS 6121 
VS 6122 
VS 6123 
VS 6124 
VS 6125 
VS 6126 
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CLP-CLP+CK/CS*ZCV*PIS 

CYR-CYR+CK3*PIS 

CNR-CNR-CK3*X0*PIS 

CLRR»CIRR>CK3/CS*ZCV*PIS 

C WR ITE ( JPT> 2 ) XY7#SE1»SUM1,SUM2,SUM3»7CV»YCV 

CYBV$F-CYBVSE+CK2*PIS 
CN8VSE-CNBVSE-CK2*X0*PIS 
CLBVSE-CLBVSE+CK2/CS*ZCV*PIS 
CYPVSE-CYPVSF+CK*PIS 
CNPVSE-CNPVSF-CK*PIS*XO 
CLPVSE-CLPVSE+CK/CS*ZCV*PIS 
CYRSE-CYRSF+CK3*PIS 
CNRVSE-CNRVSE-CK3*PI$*XO 
CLRVSE«CLRVSE+CK3/CS*ZCV*PIS 
C EFFECT OF VORTEX BREAKDOWN 

BR— X0/HALF8(1)*RL 
BLR-BR 

IF(IBD.EO.O) GO TO 1369 
IF (PBK .GT.O.Ol ) BLR— BK-BR 
BLR-ABS(BLR) 

AB1-ABD(K,HA) 

AB2-ABDP(K,8A ) 

AB3- ABDL ( K » NA ) 

AB4- A L 8DBL ( K » 1 ) 

ARL- A B 1— ( AB1-AB2 ) /BK*BLR 
NB-NWING(K) 

BLR-(AUX(K»NB)-XRFF)/HALFB(1)*RL 
BLR-ABS(8LR ) 

CRL- Afil-( AB1-AP2) /BK*BLR 
RT8R-BHL(3»K) 

RT8L«BML(2,K) 

FA-1. 

IF(ALP.GE.CRL.AND.ALP.LT.ABl) FA-l.-tl.-RTBl)* t ALP-CPL ) / ( AEll-f H L 1 
IF (ALP .GF . AB1 ) FA-PT&L 
XL (2» K ) -1. 

IF(ALP.GT.ARL.AND.ALP.LT.CRL) XL (2,K)-0.5*<RT8R+1 . ) 

IF ( A L P . GE.CRL ) XL ( 2 »K ) -0 . 5 * ( RTBR + F A ) 

RTK- BUR ( 2 » K ) 

FB-1. 

IF (ALP. GE.CRL. ANO.ALP.LT. API) FB-1. -Cl, -RTK )♦ (ALP-CRL ) / ( AB1-CPL 1 
IF(ALP.GE.ABl) FB-RTK 

abc-cbmr(k) 

IF(ALP.GT.ARL.AND.ALP.LT.CPL) APC-0.5+(RTK+l.)#CBMR(K) 

IF (ALP. GE.CRL ) ABC-0.5* (RTK+FB )*CBHR(K ) 

GO TO 1388 
1369 XL (2 # K ) -1 . 

ABC-CBNR(K) 

1388 CONTINUE 

C WR ITE ( JPT » 2 ) CK »CK2»CK3»XYZ*SE2#SE3»BMR (5#K ) 


VS 

6127 

vs 

6128 

vs 

6129 

vs 

6130 

vs 

6131 

vs 

6132 

vs 

6133 

vs 

61 3 A 

vs 

6135 

vs 

6136 

vs 

6137 

vs 

6138 

vs 

6139 

vs 

6140 

vs 

6141 

vs 

6142 

vs 

6143 

vs 

6144 

vs 

6145 

vs 

6146 

vs 

6147 

vs 

6148 

vs 

6149 

vs 

6150 

vs 

6151 

vs 

615^ 

vs 

6153 

vs 

6154 

vs 

6155 

vs 

6156 

vs 

6157 

vs 

6158 

vs 

6 1 c 9 

vs 

6160 

vs 

6161 

vs 

6162 

vs 

6163 

vs 

6164 

vs 

6165 

vs 

6166 

vs 

6167 

vs 

6168 

vs 

6169 

vs 

6170; 

vs 

6171 

vs 

6172 

vs 

6173 

vs 

6174 

vs 

6175. 
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IFCNVRTXOO.NE. <NS(K)*1)> GO TO 223 VS 

B1-CH0R0T(K,K1)*?.*XYZ*XY7*BMP{A,K)*GB*SN(K,JJ,ISN>/FNPFATP*CSPS1 VS 
CK2-CK2+B1 VS 

PB1-CH0PDT(K,K1 ) *2 . *X Y 7*G B*SE 1*SN < K» J J# ISN > /FN*F ATR*>CS*S1 VS 

IF(PBK.GT.O.Ol) CK2-CK2+PB1 VS 

Pl-CMORPT (K,K1) ♦2.*XYZ*XYZ*ABC*BP*SN(K» JJ,ISN)/FN*FAT»*CS*S1 VS 

CK3-CK3+R1 VS 

PBl«CHOPOT(K,Kl )*2.*XY7*GB*SE3*SN(K» JJ# ISN)/FN*FATR*CS*S1 VS 

IFCPBK.GT.O.Ol) CK3-CK3+RB1 VS 

OR-BML(5,K) VS 

C VRITF. ( JPT»2) ARL*CRL»PTBR»PTBL»DP#BMR(4,K) VS 

C WRITE ( J PT» 2 ) CK2,CK3»BHL(A,K)#XL(1»K),XL(2»K) VS 

CK-C**BPL (4,K 1 VS 

CK2-CK2*XL(1#K) VS 

CK3-CK3*XL(2>K) VS 

C ADDITIONAL VORTEX LIFT ON THE LEFT OUTBOARD PANEL VS 

FBB-1. VS 

ID-0 VS 

IF(MA.E0.2.AND.IAGVX.E0.1) ID-1 vs 

IFdD.FO.l.ANO. ALP.GT.AB3) FBP-CA(K) VS 

IF(ALP.GE.ALPBD(K,l).AND.IAGVX.EO.O) EBB-O. VS 

GG-CPC VL ( K ) VS 

IF(ID.EO.O) GO TO 891 VS 

IFCALP.GT.AB2) GG-PTK VS 

IFULP .GT.AP3) FBB-O. VS 

891 CONTINUE VS 

FBB-FPB*CA(K) VS 

FBC-FBP VS 

IF(PA.EO.2.AND.IAGVX.E0.0) FBC-O. VS 

TBl-O. 5*( FBC-CA (K )*FBB)*B1 VS 

TP2-CH0R0T <K»K1 ) + XYZ*XY7*SN(K#JJ»ISN)/EN + FATP*CS VS 

TB3-0. 5*< l.-GG) *TB?*FBB*S1 VS 

CK2-CK2+TB1-T83 VS 

C WRITE(JPT»2) CK2#TB1»TB3#TB2 VS 

918 CONTINUF VS 

CYBV-CYBV-CK?/CS*SS*PIS VS 

CNBV-CNBV+CK2/CS*SS*PIS*XO VS 

CLBV-CLBV— CK2/CS*(YCV-DYB(K))*PIS VS 

CYPV-CYPV-CK/CS*SS*PIS VS 

CNPV»CNPV*CK/CS*SS*PIS*XP VS 

CYRV-CYPV— CK3/CS*SS*PIS VS 

CNRV«CNPV+CK3/CS*SS*PIS*XO vs 

CLRRV-CLPP V-CK3 /C S* (YCV— DYR(K ) ) *P I $ VS 

CLPV-CLPV-CK/CS*( YCV-DP )*PIS VS 

225 CONTINUE VS 

223 CONTINUE VS 

1321 CONTINUF VS 

222 CONTINUF VS 

IF(ABS <CSUA£lAQjJWm-jaEPAR-CSXL/CSL ^ 


6176 

6177 

6178 

6179 
6160 
6181 
6182 
6183 
6186 

6185 

6186 

6187 

6188 

6189 

6190 

6191 

6192 

6193 
619A 
6193 

6196 

6197 

6198 

6199 

6200 
6201 
620? 
6203 
6206 

6205 

6206 
6207 
620P 
6200 
6210 
o21 1 
6212 
6213 
6 2 1 A 

6215 

6216 

6217 

6218 

6219 

6220 
6221 
6222 
6223 
6226 
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IF UBS < CS AUG ).GT. 0.0001) X AUGB-CMAUG/CS AUG 

VS 

6225 

CSHW-CSNW*0.5*PI 

VS 

6226 

FTN-t. 

VS 

6227 

IF (GW • GT. 1 . E—5 ) FTN-CSNW/GW 

VS 

6228 

C WR ITE ( JPT* 2 ) CSNW»FTN>GW 

vs 

6229 

PISW«0.5*PI/HALFSW 

vs 

6230 

CLT-CLT*PISW 

vs 

6231 

CMT-CMT+PISW 

vs 

6232 

CDT“C0T*P1SW 

vs 

6233 

CLGM-CLGM*PISW*FTN 

vs 

6234 

COG*-CDG**PISW*FTN 

vs 

6235 

CMGN-CNGM*PISW*FTN 

vs 

6236 

CLDV-CLDV*PISW*FTN*FTN 

vs 

6237 

C00V-C00V*PISW*FTN^FTN 

vs 

6238 

CHOV»CHDV*PISW/CPFF*FTN*FTN 

vs 

6239 

DO 1399 I-l.NSUR 

vs 

6240 

CLW(I) -CLW(I )*PISW 

vs 

6<?41 

CMW{ I ) «CMW< I )*PISW 

vs 

6242 

CPWCI )*CDW(I)+PISW 

vs 

6243 

CLVL(I)«CLWL<I)*PISW 

vs 

6244 

CMWL(I)-CHWL(I)*PISW 

vs 

624? 

CDWL (I)-CDWL( D+PISW 

vs 

6246 

1399 COHTINUF 

vs 

6247 

CLPP-CLPP*PI/( ? .♦HALFSW) 

vs 

624* 

CDPP»CDPP*PT/(2.*HALFSW) 

vs 

6240 

CDVL»CDVL*PI/(2.*HALFSW) 

vs 

6250 

CSL«CSL*PI/ (?.*HALFSW) 

vs 

6251 

CSXL-CSXL*PI/(2.*HALFSV*CREF) 

vs 

6252 

CSAUG"CSAUG*PI/ (2.* HALFSW) 

vs 

6253 

CAX-CAX*PI/(2.*HALFSW) 

vs 

6254 

CAXV«CAXV*PI/(2.*HALFSW) 

vs 

625 5 

CLAUG-CSAUG 

vs 

6256 

CDAUG»CLAUG*SINA/COSA 

vs 

6257 

CHAUG-CHAUG*PI/(2.*HALFSW*CREF) 

vs 

62 3 P 

IF < ABS (CLT) .GT. 0.0001 ) XBP-CMT/CLT*CREF 

vs 

6259 

IF (I ALP .EO. 1) GO TO 166 

vs 

6260 

CDVS "C OVS *2 , 

vs 

6261 

CL VS “C L VS *2 • 

vs 

6262 

CMVS«CMVS*CTX*2./CPFF 

vs 

6263 

166 CONTINUE 

vs 

6264 

C0CL2-O. 

vs 

6265 

IF(LAT.EO.O) GO TO 227 

vs 

6266 

CONST-PI/ (2. *HALFSW) 

vs 

6267 

C0UTB-C0NST/(2.*HALFB (1 ) ) 

vs 

6268 

IF(LAT.EO.l) GO TO 1360 

vs 

6260 

Cl-CLL+CONTB 

vs 

6270 

C2«CLLV*C0NTB 

vs 

6271 

C3«CNL*C0NTP 

vs 

627? 

C4-CNLV*C0NTB 

vs 

6273 
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CLL«C1*C0SA+C3*SINA 

CLLV-C?*C0SA+C6*SINA 

CNL«C3*C0$A-C1*SINA 

CNLV«C6*C0SA-C2*$INA 

C5-CLNSE*CDNTB 

C6-CNN$F*C0NTB 

C7"CLNSEV*C0NT8 

C8-CNNSEVK0NTB 

CL M SE«C5*C0SA+C6*SINA 

CNNSE-C6*C0SA-C5*SINA 

CLNSEV-C7*C0SA+C8*SINA 

CNNSEV«C fl*COS A-C7*S IN A 

GO TO 227 

1360 CONTINUE 

FTN2"FTN*FTN 

R TP-CON ST /P*0.5*FTN2 

RTB-C0NST/BK*0.5*FTN2 

RTR«C0NST/RL*0.5*FTN2 

CY»CY*CONST/BK 

CNB-CN8*C0NTB/BK 

CL R "Cl B*CONTB/BK 
CYP»CYP*CONST/P 
CNP-CNP*CONTB/P 
CLP»CLP*C0NT8/P 
CYP»CYR*CONST/RL 
CNR»CNR*CONTB/RL 
CLRR"CLRR*C0NTB6RL 
ClPV«CLPV*CONTB/P«-CLPVA*RTP 
CYBV-CYBV*CONST/BK+CYBVA*RTB 
CYBVSF«CYBVSE*CONST/BK*CYBVA*PTB 
CNBV-CNBV*CONTB/BK+CNBVA*PTB 
CNBVSE-CNBVSE*CONTB/BK+CNBVA*PTB 
CLBV“CLBV*CONTB/BK+CLBVA*PTB 
CLBVSE-CLBVSE*CONTB/BK+CLBVA*RTB 
CYPV»CYPV*CONST/P+CYPVA*RTP 
CYPVSE-CYPVSE*CONST/P+CYPVA*PTP 
CNPV-CNPV*CONTB/P+CNPVA*RTP 
CNPVSE«CNPVSE*CONTBrP+CNPVA*RTP 
CLPVSE“CLPVSE*CONTR/P+CLPVA*RTP 
CYPV-C YRV*C0NST/RL+CYRVA*PTP 
CYRSE-CYRSE*CONST/RL+CYRVA*PTP 
CLRRV-ClRRV*CONTB/RL*CLRRVA*RTR 
CtRVSE-CLPVSE*CONTP/PL+CLRPVA*RTR 
- CNRV«CNRV*CONTB/Rl+CNRVA*RTR 

CNRVSE-CNRVSE*CONTB/RL+CNRVA*RTP 
227 CONTINUE 
A I *1 • 

C WR ITE ( J PT*3 ) KALP»KI,NALP 

IFIKALP.LT. 2) GO TO 90 


VS 

6276 

vs 

6275 

vs 

6276 

vs 

6277 

vs 

6278 

vs 

6279 

vs 

6280 

vs 

6281 

vs 

6282 

vs 

6283 

vs 

6286 

vs 

6285 

vs 

6286 

vs 

6287 

vs 

6288 

vs 

6289 

vs 

6290 

vs 

6291 

vs 

6292 

vs 

6293 

vs 

6296 

vs 

6295 

vs 

6296 

vs 

6297 

vs 

6298 

vs 

6290 

vs 

6300 

vs 

6301 

vs 

6302 

vs 

6303 

vs 

6306 

v< 

6305 

vs 

6306 

vs 

6307 

vs 

6308 

vs 

6309 

vs 

6310 

VS 

6211 

vs 

6312 

vs 

6313 

vs 

631'* 

vs 

6315 

vs 

6316 

vs 

6317 

vs 

6318 

vs 

6319 

vs 

6320 


VS 6321 
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1 1 v/ 


v'AL P..v:_ 

OF POOR QUAUTY 


>5 


CLF-BREAK (6.10) 

IFCKALP.E0.2) CLTOT-CLT+CLF 

IF (K ALP . E 0 , 3 ) ClT0T»CL P p + CSL+CL VS + CL AUG+CLPNaCLDV+CLF 
IF(KI.GT.l) GO TO 91 
AR-2.*HAlFBtl)*HALFG(l)/HALFSV 
B82-1.-AH*AN 

SAT- SORT ( AR*AR*BB2*(1.+TANC2/BB2)*4 . ) 

ASP-2. *PI*AR/(2.+SAT) 

GO TO 92 

91 AI -C LTOT-C L 1 1 

IF(ABS(AI).LT. O.OOl) GO TO 90 
ASP-AI / (ALP-ALPII ) 

9? ALPINC-(CLDS-CLTOT) /ASP 
IF (KI .EO.NALP) GO TO 90 
GO TO 3*1 
90 CONTINUE 

IF (ABS(CLT) .LE. 0.001) GO TO A* 

C0CL2-C0T/(CLT*CLT) 

A 4 CONTINUE 

VRITECJPT.3) NC 1 » NC 2# N AS YM 
SWS-HALFSW 

IF (NASYK.EO.l) HALFSW-0.5PHALFSW 
IF (L AT.EO. (-1) ) GO TO 71 

CALL BEND IN (NC.CLY.BNR. IWING.BRFAK » C BNR » CBTR.NVING. HAL FSH. HALF 
ICOSf OS IN. IWC-LT.FTL.NASYM.NC2.0.NSUP.NS ) 

DO 1 A02 I-l.NSUR , 

IF ( I WGLT ( I ) • EO • 2 ) CDMPtI) -CBHP ( I ) + FTL (I )*(X<I»3)*X(I#1)+XU»4) 
1»2))/HALFB(I)+CBTR(I) 

WR IT F ( J PT » 2 ) FTL(I)#X(I»3)#X(I#1)#X(I»4)»X(I»2) 

CBHLtl)-CBNP(I) 

CBTL ( I )-CBTP (I ) 

IFCNASYH.FO.l ) CBHR Cl ) -CBTP (I) 

KA-NS ( I ) 

IF(I.GT.l) KA-KA-NS(I-l) 

00 72 K - 1 » K A 
72 BNLtI#K)«BMRCI»K) 

1A02 CONTINUE *' 

GO TO 73 ll 

71 IF (L AT. EO .1 ) GO TO 73 
DO 7 A I-l.NCS 

7A YCON ( I ) -C LY ( I ) +CL S ( I ) V5 

CALL BENDINCNC. YCON. BHP# I WING.'BPEAK.C BNR.CBTP. N WING .HALF SH» HALF 8H# VS 
10C0S.DSIN, IWGLT.FTL.NASYN.NC2.1.NSUR.NS) VS 

DO 1 A03 I-l.NSUR VS 

IF Cl WGLT ( I ) . FO • 2 ) CBNR (I ) •CBMR{I) + FTL(I)*CX(I»3)*X(I»1)+XCI»A)'*X(IVS 
1,2))/HALFB(I)+CBTRCI) 

1A03 CONTINUE Y“ 

00 75 I-l.NCS It 

75 YCON (I )-CLY ( I )-CLS( I) V5 


VS 

6323 

vs 

6324 

vs 

6325 

vs 

6326 

vs 

6327 

vs 

632* 

vs 

6329 

vs 

6330 

vs 

6331 

vs 

6332 

vs 

6333 

vs 

6334 

vs 

6335 

vs 

6336 

vs 

6337 

vs 

633* 

vs 

6339 

vs 

6340 

vs 

6341 

vs 

6342 

vs 

6343 

vs 

6344 

vs 

6345 

rvs 

6346 

vs 

6347 

vs 

6348 

IV$ 

6349 

vs 

6350 

vs 

6351 

vs 

6352 

vs 

6353 

vs 

6354 

vs 

6355 

vs 

6356 

vs 

6357 

vs 

635* 


6359 

6360 

6361 

6362 

6363 
636 A 

6365 

6366 

6367 

6368 

6369 

6370 

6371 
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CALL BENDININC, YC ON, BHL, I WING. BREAK »C8ML»C8TL >NWING»HALFSH* HALF BH. 
1DC0S»0SIN,IVGLT,FTI»NASY8,NC1»2»NSUR»NS > 

IF(!WGLT( IKE0.2) CBKL(I ) -CBHL CI)*FTL ( I>+ ( X Cl , 3)*X ( 1 , 1 ) ♦* ( I » 4)*X< 
l,2))/HALFBm+CBTL(I) 

1404 CONTINUE 
73 CONTINUE 
HALFSW-SWS 
ALP-ALP*180./PI 
WRITE CJPT* 51 > 

IF ( I ALP .EO. 1> WRITE (JPT.59) 

IF < I AL P .EO. 1) GO TO 76 
WRITE ( JPT» 52 ) ALP 

AF-O. 

DO 2315 I-l.NSUR 

IF (NAL (I) . NE.O. AND. ABS(AF).LT. O.Ol) AF«DF(I»NAL(T))*1B0./PI 
2315 CONTINUE 

IF (L A T .EO. (-I)) WRITE ( JPT.T7) AF 
CONTINUE 

FORMAT ( /20X*19HAND AILERON ANGLE -»F8.3»2X»4HDFG. ) 

WRITE ( JPT.51 I 

FORMAT</20x,42Hxyxxxyxxxyxxyxxxxxxxxxxxxxxxxxxxxxxxyxxxxy) 
F0RMAT(/20X,3?HPRFSSURE DISTRIBUTION AT ALPHA - . F 8 . 3 . 2X , 4KD FG. > 
FORNAT </20X,43HPRESSUPE DISTRIBUTION AT ALPHA - 1.0 RADIAN) 
IFCLAT.NE.(-l)) WRITE (JPT, 53) 

IFCt. AT.EO.t — 1 ») WRITE (JPT.55) 

53 FORMAT </3X,6HV0RTEX,14X,2HXV,17X,2HYV»19X»2HCP> 

55 FORM AT < / 3X, 6HV0R TEX , 1 4 X , 2HX V, 17X, 2HYV , 1 7X, 8HCP CLEFT), 12 X, <JHCP(R1 
1 HT ) ) 

Kl-0 
JJ1-0 
JK «0 
K-l 
KCH-1 

DO 60 I "l.NCS 
HAR-HALFB <K ) 

IF (NW (K, 2) .FO.O) GO TO 6? 

IF(K.EO.l) II «KC H+NS ( K ) 

IF(K.GT.l) I1-KCH+NS(K)-NS(K-1) 

CHO»D«CH(KCH) +CH( II ) 

GO TO 63 

62 CHORD-CH(KCH) 

63 CONTINUE 
NCW-NW(K,1)+NW(K, 2) 

DO 61 J«1,NCW 
JJ-J Jl+J 
KK»K 1 + J 

IF (NW(K,2).E0.0) GO TO 64 
IF ( J.LE.NW(K,1 ) ) GO TO 64 


76 

77 

51 

52 
59 


► VS 

6372 

vs 

6373 ( 

vs 

6374 

[VS 

6375 

vs 

6376 

vs 

6377 

vs 

63?e 

vs 

6379 

vs 

6380 

vs 

6381 

vs 

6382 ( 

vs 

6383 

vs 

6384 

vs 

6385 

vs 

6386 1 

vs 

6387 

vs 

6388 

vs 

6389 

vs 

6390 

vs 

6391 

vs 

6392 ' 

VS 

6393 

vs 

63Q4 

VS 

63°5 

vs 

6396 

vs 

6397 

vs 

6398 

c-vs 

6399 

VS 

6400 

VS 

6401 

vs 

6402 

vs 

6403 

vs 

6404 

vs 

6405 

vs 

6406 

VS 

6407 

vs 

6408 

vs 

6409 

vs 

643 0 

vs 

6411 

vs 

6412 

vs 

6413 

vs 

6414 

vs 

6415 

vs 

6416 

vs 

6417 

vs 

6418 

vs 

6419 

vs 

6420 
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ORIGINAL PACE 53 

OF POOR QUALITY 


IK-0 

IF(K.GT.l) IK -NS ( K— 1 ) 

IL-LPAN1<K)+NVCK,2)MI-IK-1UJJ-NW 

GO TO 65 

64 LL-JJ+JK 

65 CONTINUE 

X I — C XV (LL )-XLE(KCH) l /CHORD 
ETA-YV(LL)/HALFB(K) 

IF (LAT .NF. (-1 ) ) GO TP 66 
CPR*(CP(LL)'F6AMMA(LL).)*2« 
CPL»(CP(LL)-GAMMA(LL) )* 2 . 

WRITE < JPT» 54 ) KK»XI»ETA*CPL*CPR 
GO TO 61 

66 C PK« 2 • *C P ( L L ) 

WRITE (JPT#54) KK,XI,ETA»CPK 
61 CONTINUE 

JJ1”JJ1+NW(K»1) 


K,1)*<I-IK) 


K1-K1+NCW 

KCH-KCH+1 

IF(I.NE.NS(K)) GO TO 60 
IF(NW(K»2).E0.0) GO TO 67 
IF(K.EQ.l) KCH-KCH+NS (K ) 


IF (K .GT.l ) KCM-KCH+NS IK )-NS (K-l ) 
67 CONTINUF 
JJ1-0 
JK-IPN(K) 

60 IF (I .FO.NS <K ) ) K-K + l 
54 FORMAT ( 6X 1 1 3 » 4 ( 10X , F 10 . 5 ) ) 

WRITE ( JPT» 30 ) 

30 FORMAT! /9X,3HY/S» 11 X*9HCL (PIGHT1 
11?X»3HCDI»12X»4HCS*C>10X,3HCAV) 
325 FORMAT ( /4X* 42HTHF FOLLOWING APF 
327 FORM AT ( /4X» 45HTHE FOLLOWING ARF 
K-l 


,6X,8HCL(LFFT),10X»2HCM,12X,2HCT, 

THE TAIL CHARACTERISTICS) 

THE WINGLET CHARACTERISTICS) 


NSP-0 


KCH-1 

DO 31 I “1 * NCS 
JWING* IWI NP (K ) 

IF (IWGLT(K).FO.O) GO TO 326 

IF (I .EO. (JWING+1)) WRITE !JPT#327) 

GO TO 328 


326 CONTINUE 

IF(I.E0.(NSP+1).AND.K.E0.2) WPITE(JPT»325) 


kb«k-i 

IF(I.EQ.(NSP+1) . AND. K. GT.l) WR ITF I JPT, 1 397 ) KP 
IF!I.E0.!NSP*1) . AND. K. GT.l) WRITE UPT. 1213) 

328 CONTINUE 

YF'YLEtKCH) /HALEB ( K ) 

kch-kch+i 


VS 

vs 

vs 

vs 

vs 

vs 

vs 

vs 
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vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

VS 

vs 
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6422 

6423 

6424 

6425 

6426 i 

6427 

6428 

6429 

6430 

6431 

6432 1 

6433 

6434 

6435 

6436 

6437 

6438 

6439 

6440 

6441 - 
6642 

6443 

6444 : 

6445 

6446 

6447 

6448 

6449 

6450 u 

6451 

6452 
64 53 

6454 

6455 
64 5 6 

6457 

6458 

6459 

6460 

6461 

6462 

6463 

6464 

6465 

6466 

6467 

6468 

6469 
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361 


31 

32 

1303 


33 

2A 

35 

42 


IF (I .NE. NS (K ) ) GO TO 361 
IF (NW(K»2) .EQ. 0) GO TO 361 
IF (K .EO. 1) KCH-KCH+NS(K) 

IF (K .GT. 1) KCH-KCH+NS(K)-N$(K-1) 

CONTINUE 
TFM-CLSd ) 

IFd.EO.NS(K) > NSP»NS(K) 

IF CI.EO.NSOO) K «K +1 
IF (L AT .NE . (-1 ) ) TEH-O. 
clrt-cuu+tem 

WRITE C t JPT» 32*1 YE»CLRT»CLLT»CMd)»CTd)#CDd)»PMMd)»CAVS(I> 

FORMAT (8(5X»F10.5)> 

THE FOLLOWING ARF ATTACHEO POTENTIAL FLOW 

IS *♦*> 

WRITE ( JPT» 33 1 CLT 

FORMAT { /2X * 24HT0TAL LIFT COEFFICIENT -F10.5) 

FORMAT* d2X#32HT0TAL INDUCED DRAG COEFFICIENT »#F10.5) 

WRITE (JPT.35) CDCL2 

FORMAT (/2X.28HTHF INDUCED DRAG PARAMETEP -fFlO.S) 

WRITE ( J PT # 42 ) C MT 

FORMAT ( /2X»35HT0TAL PITCHING MOMENT COEFFICIFNT •** : 10.5) 

IF (NSUR «GT .1 ) GO TO 330 
IF(IWING(1) .NE.O) GO TO 330 
IF(NASYN.FO.l) GO TO 48 
IFIARStCLT) .LE. 0.001) GO TO 4P 
IF (NGRD.NE.O) GO TO 48 
IF(IDIH.NE.O) GO TO 48 
IF(KF.NE.O) GO TO 48 
CALL DRAGICLT»YCPEAK,NC»TFLP»NAL) 

GO TO 48 


330 


WRITE ( J PTi 331 1 CLV(l) 

WR ITE ( JPT»332) CCW(l) 

WRITF ( JPT.333) CMW(l) 
IFdWINGUJ.EO.Ol GO TO 
CLULT«CLW(1 l-CLWL (1 ) 

CMWLT »CMW ( 1 )— CMWL ( 1 ) 
COWLT»COW(1)-CDUL(1) 

WRITE (JPT, 2104) CLWLT 
WRITE (JPT»2106) CDWLT 
WRITE ( JPT.2105) CMWLT 

2104 FORMAT ( /5X» 30HTHE WINGLET 
1NG AREA)) 

2105 FORMAT ( /5X#41HTHE WINGLET 


2103 


LIFT COEFFICIENT •* F10.6# 20H( BASED ON 


VS 

VS 

VS 

VS 

vs 

vs 

VS 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

RE SUL TVS 
VS 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

WIVS 


PITCHING MOMENT COEFFICIENT 


VS 

♦ F10.6W10XVS 

1 # 29H (BASED ON REFERENCE GFOMETRY ) ) ,au#oa*!!< 

2106 F0RMAT(/?X>38HTHF WINGLFT INDUCED DRAG COEFFICIENT «, F10.6, 20H < PASVS 

1ED ON WING AREA)) 
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2103 CONTINUE 

1397 FORMAT (/5X.16H*** TAIL SURFACE* I3.9H ***f ) 

IF(NSUR.EO.l) C-0 TO 98 

K2 • NSUR - 1 
DO 1308 I-1.K2 
WRITE (JPT. 1397) I 
CtTLV-CLW(I+l)-CLV(I) 

CMTAIL-CMW(I+1)-CMW(I) 

CDTL-CDV(I-H)-CDV(I) 

WRITE ( JPT.339) CLTLW 
WRITECJRT.329) CDTl 
WRITE ( JPT. 335 ) 

WP ITE ( JPT. 336 ) CMTAIL 

1398 CONTINUE 
98 CONTINUE 

WRITE(JPT.Bl) 

IF ( IALP .EO. 0) GO TO 391 
WRITE ( JPT. 8 ) 

CTIP - CTIR*2 
WRITE ( J PT# 39 5 ) 

WRITE ( JPT»392 ) CLT.CSL.CTIP.CSAUG 
WRITE (JPT *393) XBP. XL EBAP »CTX» X AUGB 
WRITE (JPT. 8) 

GO TO 396 

392 FORMAT ( /2X.9HKP ■» F 10 . 5 » 3X » 6HK VL E -.F10.5.3X.6HKVSE " » F 10. 5 » 3X i> 
17HKVAUG ■ » F 10 • 5 ) 

393 FORMAT ( / 2X» * ; HXBP ■» F10. 5. 3X.6HXBLE • » F10. 5. 3X» 6HXBSE -.FI0.5.3X* 
17HX8AUG ■ . F 10 • 5 ) 

395 FORMAT (/2X.66HTHE FOLLOWING PARAMFTFRS ARE USED IN THE MFTHOO OF 
1SUCTI0N ANALOGY) 

391 CONTINUE 
CLF-O. 

CHF-O. 

CDF-O. 

IF (KF .EO. 0) GO TO 362 

S-XTEF-XLEF 

SS-SINA 

CS-COSA 

CALL CPFUS(NCUM»NT»SCH»CPF.NF»S»XLEF»XF»XAS»LPANEL. LPANl.NKF.tH-> . 
1B.AM.SS.CS. SNP.F0.F10. WARP. IWING.CREF.O. NCl.YPPEAX.DCCS.CSIN.lv. 
2L PN, NS » NGRD » HE I GHT. ATT. I WGLT.NC.BP EAK) 

CALL FUSLFT (CPF. HAL FSW.CRf F» SS.CS. 0. XREF.CLF.CMF. CDF ) 

BP EAK ( 6. 1 0 ) -C L F 

IF(KALP.C-E.2.AN0.ABS(AI) .GT.0.001) GO TO 93 
IF (LAT .NE. 1) GO TO 362 
610-0. 

SS-O. 

CS-1. 

CALL CRFUS(NCUM.NT»GAMB.CPFfNF.S»XLEF»XF»XAS.LPANEL»LPANl»NKF»NW» 
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1B,AM,SS*CS,SNP,FO,G10,WARD,IWING,CPEF,2>NC1»YPRFAK»DCOS»OSIN,IV, V? 
2L PN, NS, NGRO, HEIGHT, ATT, IVGLT.NC, BREAK) VS 

CALL FUSLFT(CPF»HALFSW»CREF,S$»CS,?,XREF,CYF,CNBF,CKF> VS 

C WR ITE ( J PT, 2 ) CYF.CNBF VS 

RX-CYF/BK VS 

PY»CNBF/BK*CPEF<(2.*HALFB(1)) VS 

CY«C Y + PX VS 

CNB-CNB+PY VS 

CYBVSE-CYBVSE+PX VS 

CNBVSE-CNBVSE+PY VS 

CYBV«C YBV+PX VS 

CNBV-CNBV+PY VS 

SS-O. VS 

CS-1. VS 

CALL CPFUS(NCUN*NT»GANR»CPF»NF»S»XLEF»XF»XAS»L p ANeL»LPANl»NKF*NV» vs 
1B*AM»SS»CS»SNP,F0*G10»WARD»IWING»CREF*3*NC1»YBREAK»DC0S,DSIN»IV» VS 
2LPN, NS, NGRD, HEIGHT* ATT»IWGLT»NC»BRFAK) VS 

CALL FUSLFT(C p F,HALFSV,CPEF,SS,CS,3,XPFF,CYRF,CNRF,CKF) VS 

PY«CNRF/Rl*CREF/(2.*HALFB(l)) VS 

t WR IT F ( J PT , 2 ) CYPF,CNRF VS 

CYR-CYP+CYPF VS 

CNR-CNR+PY VS 

CYRSF-CYRSE+SS VS 

CNRVSF “CNPVSF+PY VS 

CYRV-0 YRV+SS VS 

CNRV-CNRV+PY VS 

362 CONTINUE VS 

IF(KALP.GE.2.ANO.ABS(AI) .GT.O.OOl) GO TO 9? VS 

WRITF(JPT,8) VS 

WR ITF ( JPT, 920 ) ALP, AN VS 

WRITE(JPT,8) VS 

CLTT-CLT+CLF VS 

COTT ■ C OT + CDF VS 

CHTT-CMT+CNF VS 

WRITE! JPT, 921) CLT# CLF »C LTT VS 

WRITF ( JPT ,922 ) COT,COF,CDTT VS 

WR ITF ( JPT, 923 ) CNT, CNF,CHTT VS 

920 FORMAT ( /2X, 43HSUMMARY OF ATTACHEO FLOW RESULTS AT ALPHA «,F7.3,2X,VS 

15HDFG.,,2X,3HM -,F7.3) VS 

921 FORMAT ( / 4 X » 0HC L ( L S ) - , FI 0 . 5 , 3 X, 5HC LF -,F10.5»3X,4HCL =,F10.5) VS 

92? F0RMAT(/4X,8HCC(LS) - , F10 . 5, 3X, 5HC OF -, F10.5,3X,4HCC -,F10.5> VS 

923 F0RHAT(/4X,BHCM(LS) ■, F10« 5, 3X, 5HCMF - » F10. 5, 3X, 4HCM -,F10.5) VS 

CLT»CLPP,CSt ♦CLVS+CLAUG,CLGM+CLDV+CLF VS 

cdt-copp+covl+cdvs+cdaug+cdgm+cddv+cdf VS 

CMTT-CMT+CSXL+CMVS+CHAUG+CMGM+CMrv+CMF VS 

WRITE ( JPT , B ) VS 

WRITE (JPT, 345) VS 

WRITE (JPT, 347) CLPP,CSL.CLVS»CLAUG VS 

WRITE! JPT, 348) CDPP,CDVL,COVS,COAUG ^ 


656B 

6569 

657C 

6571 

6572 

6573 

6574 

6575 

6576 

6577 
657? 
6579 
65e0 
65B1 
6532 
6583 

6594 
658 r ‘ 

6586 

6587 

6588 

6539 

6590 

6591 
659? 
6593 
659-, 

6595 

6596 

6597 
65 90 
6 599 
6600 
6601 
660? 

6603 

6604 

6605 

6606 

6607 

6608 

6609 

6610 
6611 
6612 

6613 

6614 

6615 
bt 16 
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ORIGINAL PAGE 'r: 
OF POOR QUALITY 


VS 

WRITE < JPT#349) CHTfCSXL#CrVS#CHAUG ys 

WRITE ( JPT#355> Cl G*>CLDV,Cl F >CIT y$ 

WR ITE ( J P T # 3 56 ) CPGH* CDDV# CDF $ COT y » 

WRITE ( JPT»357) CMGM • C MOV » CHF #CPTT y ^ 

WR IT E ( J PT# 3 54 ) CAX#CAXV yj 

WRITE(JPT,B) vs 

5HCLP .,EI0.S.3X,7HCIVIE -EIO.S. 3X.7HCIVSE -EIO.S, JX,« 

„ ( 1 S H 0 C »l;UU 2 ’x: F 5 «ip’..F10. 5 ,3*.THC0VU -FiO.S.SX.THCOVSE -F10.S.3X.VS 

j4» , ?«!«U3J: F 3!le^ , .,fl0.3.3».7KIIVlE -EIO.S, 3X.7HCNVSE -E 10.5, 3X.VS 

ASa'eOBFATUTX.FHCAXB •,F10.S,3X,AHCAXV — EIO.S) JJ! 

";«;i!/JX,7HCltlV F -F10.5,2X,7HCLDVV ■.F10.5.2X.5HCLF -F10.5.2X.VS 

356 1 FOBHaV(72)-7HCD0VP -F10.5,2X,7HC00VV . . F 10.3, 2X.5HCDE -BIO. 5, 2X, VS 

357* FOPMiT ( /2X.7HCF0VP -F10. 5.2X.7HCFDVV — F10.S.2X.5HCFF — E10.5.2X.VS 

1 AHCN «>F10.5) _ ... lx c 

^^1 F0RNATU5X,27HTMF VINP LIFT COFFFICIFNT -,F10.5> 

33? F0RMAT!/5Xf35HTHE WING INDUCED DRAG COEFFICIENT -,F10.5) V 

,,, eno* AT ( /*>X . 3AHTHE WING PITCHING MOMENT COEFFICIENT “,F10.5) v > 

\n ?«' i\a coefficient .. F io. 5 . ? i»« based o» «i« f « 

32n'fOBMAT(/ 5X»35HTHE TAIL IHD1ICE0 OBAC. COEFFICIENT .,710.5,21H( CASEOVS 
335%CB«!m/3-E3HTHE TAU BTTCHINC, FOMENT COEFFICIENT CASED ON PEFEBEVS 
33(, 1 FOBNAT1/10x!a7HANO FEAN VINC CHOBD, AND BEFEBBED TO THE T-AXIS ■. VS 

Bl'FOBFATITSX.ASHINnTE. THE INDUCED OBAC, COMPUTATION IS FOB SYiWTBICVS 
1AL LOADING ONLY)) V S 

HW"2 • *HALFSW V S 

IF (NASYM. E0,1 ) HW-HALFSW vs 

HSH-HW VS 

FACTOR-HALFB! 1 ) /PREF2 V C 

FBRE F • 2 • *BR F c 2 V 2 

IF ILAT .EO. 0) GO TO A? vs 

?n?1 FORMAT 12X* 53HTHF^F0LL OWING ROLLING AND YAWING MOMENTS API- BASED CNVS 
202 \!r 5 !riiHi%EFErENC? S?aJ OF,E10.5,2X,23HAND A RFFEPENCF AREA Of, VS 

2F10.5) vs 

IF !L AT .NE « ( -1 ) ) GO TO 1361 y$ 

WRITE! JPT#A6) AF , AM ys 

VR1TF! JPT,136A)BPEF2 y$ 

CLL«Cl L*FACTOR vs 

CNL«CNL*F ACTOR VS 

CLLV»C LLV*F ACTOR 


6617 
661 8 
661<? 
6620 
6621 
6622 
6623 
662A 

6625 

6626 

6627 

6628 

6629 

6630 

6631 

6632 

6633 
663 A 

6635 

6636 

6637 

6638 
6636 
66 AO 
66A1 
66A2 
66A3 
66 A A 
6 64 5 

6646 1 

6647 

6648 

6649 

6650 

6651 
665? 

6653 

6654 
6 6 55 

6656 

6657 
*653 

6659 

6660 t 

6661 
666? 

6663 

6664 

6665 
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cnlv«cnlv*factor vs 

Cl NSF»CLN$F*F ACTOR VS 

CNNSE*CNNSF*FACTOR VS 

CLNSEV-CLN$FV*FACTOR VS 

CNNSEV»CNN$EV*FACTOR vs 

WRITF ( JPT, 1362) CLL#CNL VS 

WR IT F ( J P T, 1 375 ) C LNSF,CNNSE VS 

WRITE ( JPT#1363) CLLV#CNLV VS 

WR IT F ( J PT » 1376 ) C LNSE V,CNN$E V VS 

1362 FORMAT(/2X,21HATTACHEP-FlOW PFSULTS, 5X, 4HCL • , F 10, 6# 2 X* 4HCN • • VS 

1F10.6»2X,25H(WITH TIP-SUCTION EFFECT)) VS 

1363 FORMAT (/2X#19HV0PTEX-FL0W R ESUL TS $ 7X , 4HC l •* FIO .6# ?X# 4HCN «#F10.6#VS 

12X,24H(WITH TIP-VOPTFX EFFECT)) VS 

1375 FORMAT (/28X,4HCL - , F 1 0 . 6 , 2 X ,4HC N • , F 10 . 6, 2Y , 28H ( WITHOUT TIP-SUCTIOVS 

IN EFFECT) ) VS 

1376 FORMAT (/28X,4HCL • , FI 0 • 6 , 2X , 4HC N *,F10*6,2X,?7H (WITHOUT TIP-VOPTEXVS 

1 EFFECT)) VS 

1361 CONTINUE VS 

IF(LAT.NE.l) GO TO 45 VS 

WRITF ( JPT » 8 ) VS 

WRITE (JPT, 241 ) VS 

WRITE(JPT,8) VS 

241 FORMAT ( /2X#40H*STABTL ITY DERIVATIVES BY POTENTIAL FLOW THEORY*) VS 

242 FORMAT (/2X,51H*STAPILITY DERIVATIVES WITH EDGE VORTEX SEPARATION* ) VS 

K A •! VS 

239 CONTINUE * VS 

IF(KA*GT*3) GO TO 45 VS 

WRITE (JPT, 230 ) A L 7 VS 

230 FORMAT ( / /2*#45H**tSTARILITY DERIVATIVES EVALUATED AT ALPHA «,F8.3,VS 

1 ?X » 7H0 F GP EES ) VS 

WRITF (JPT, 231) AM VS 

231 FORMAT (5X,16HAND AT MACH NO . - , F 5 . 2 , 37H, BASED ON BODY AXESdN PEP PVS 

1ADIAN ) *** ) VS 

IF(KA.E0.2> WRITE( JPT,23P) VS 

IF (K A ■ F 0 • 3 ) WRITF (JPT*237) VS 

CL B“ C L B* F ACTOR VS 

CNB» C NB ♦ F ACTOR VS 

clp-clp*factor vs 

CNP-CNP*FACTOR VS 

CLRR«CLRR*FACTOR VS 

CNR-CNR*FACTOR vs 

WRITF (JPT, 232 ) CY,CLB,CNB VS 

WRITE (JPT, 233) CYP,CLP,CNP VS 

WRITE (JPT, 234) CYR,CLPR,CNR VS 

232 FORMAT ( /5X,5HCYP F 1 2 . 7# 2X , 5HC L 8 F12 .7# 2X, 5HCHB «,F12.7) VS 

233 FORMAT ( /5X#5HCYP *,F12*7,?X, 5HC L P • , F 1 2 . 7, 2X , 5HCNP «,F12.7) VS 

234 FORMAT ( /5X,5HCYR -, FI 2 .7# 2X, 5HCLR FI 2 .7, 2X, 5HCNR »,F12.7) V$ 

WRITE( JPT, 235) VS 


235 F0RMAT(//2X#51H**4STABILITY DERIVATIVES BASED ON STABILITY AXES***VS 


6666 

6667 

6668 

6669 

6670 

6671 

6672 

6673 

6674 

6675 

6676 

6677 

6678 

6679 

6680 
66 PI 
6682 

6683 

6684 

6685 

6686 
6687 
66 8 R 

6689 

6690 

6691 

6692 

6693 

6694 

6695 

6696 

6697 
6696 

6699 

6700 

6701 

6702 

6703 

6704 

6705 

6706 

6707 

6708 

6709 

6710 
67H 

6712 

6713 

6714 
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ORIGINAL 

OF POOR 


P&GE 

QUALITY 


238 

237 


1 ) 

CYB«"CY 

CIB8«CIB*C0$A+CNB*SINA 

CNBB*CNB*COSA-CLB*SINA 

TYPP-C YP*COSA*CYR*SINA ..... 

ClPP-ClP*COSA*COSA+(CLRR + CNP)*COSA*SINAKNR*SINA*SINA 
CNPP-CNP*COSA*COSA+(CNR-CtP)*Cn$APSINA-CLPR*$INA*SINA 

r ydo «r YP *CHSA — C Y P * S I N A 

CLRl-ClRR*COSA*COSA+(CNR-CLP)*SINA*COSA-CHP*SINA*SIKA 

CNRR-CNP*COSA*COSA-(CLRR+CNP)»SINA*COSA+CLP*SINA*SINA 

WRITE( JPT.232) CYBB#CLBB#CNBB 
WRITF!JPT»233> CYPP»CLPP »CNPP 
WRITE <JPT,239> C YPR »CLPL »CNRR 
IFiKA.EO.il WRITE (JPT»8) 

IF(KA.EO.l) WRITE! JPT>292) 

FORMAT !/?X» ARM** INCLUDING THE EFFECT OF LF A SE VPP V€ X IIFTP) 
FORM AT ( /5 X » 90H* I NCLUO ING THE EFFECT OF LE VORTEX LIFT ) 
IFCKA.GT.2) GO TO 95 
KA-KA+1 

GO TP 236 


236 


VS 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

VS 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 


IF(KA.E0.2) 

CY-CYBVSE 
CNR-CNBVSF 
CLB-CLRVSE 
CYP*CYPVSE 
CLP-CLPVSE 
CNP-CNPVSE 
CYR-C YRSE 
CLPR-CLRVSE 
CNR-CNRVSE 
GO TO 239 
CY-CYRV 
CNB-CNBV 
CLB-CLB V 
CYP-CYPV 
CLP-CLPV 
CNP-CNPV 
CYR-CYRV 
C L RR *C LRR V 
CNR-CNPV 

FORMAT U2X, 59HTHE LATERAL CONTROL PARAMETERS 
1TION OF#F 8 . 3* 2X t 9H0EG. t 2X »6HAT M "tFP.31 
136A FOR M AT ( /5X> 39HBASED ON STABILITY AXFS» AND B/2 
A 5 CONTINUE 

337 FORMAT W/6AH ? THE FOLLOWING BENDING MONENT COEFFICIENT IS BASED ON 
10*S*(B/2)#> /15X»9HWHEPE S »>F10.5> 2X»9HANP B/2 »»F10.5) 

WRITE! JPT»359) 


6715 

6716 

6717 

6718 

6719 

6720 

6721 

6722 

6723 
6729 

6725 

6726 

6727 

6728 

6729 

6730 

6731 

6732 

6733 


96 


DUE TO AILERON DEFI 
»,F10.5) 


VS 

673 A 

vs 

6735 

vs 

6736 

vs 

6737 

vs 

6 73 ^ 

vs 

6739 

v$ 

6740 

vs 

6741 

vs 

674? 

vs 

6743 

vs 

674 4 

V 5 

674 5 

v$ 

6746 

vs 

6747 

vs 

67 < 

vs 

67-0 

vs 

4750 

vs 

67 5' 

vs 

675 2 

vs 

6753 

vs 

6754 

VS 

6755 

CVS 

6756 

vs 

6757 

vs 

675 3 

vs 

6759 

vs 

6760 

i vr 

6761 

vs 

676? 

vs 

6763 
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359 


F0RNAT(10X,34H(F0P ATTACHED POTENTIAL FLOW ONLY)) 

WRITE ( JPT # 338 ) 

33B FORMAT ( /9X, 3HY /$» 11X » 9HBM ( R IGHT )» 6X , 8H8K CLEFT ) ) 

3A0 FORMAT t MX# 66HTHE FOLLOWING ARE THE TAIL CHARACTERISTICS BASED ON 
1WING GEOMETRY, ,/10X,9HWHERE S • , F 1 0. 5, 2X »9HAND 8/2 -,F10.5) 

351 FORMAT (MX#68HTHE FOLLOWING APE THE WINGLFT CHARACTERISTICS BASED 
ION WING GEOMETRY, /10X,9HWHERE S »* F10.5#2X»9HAN0 B/2 «»F10.5> 
KCH-1 

00 1396 K-1,NSUP 
HAP-HALFB (K ) 

KA-NS(K) 

KA-KA-NS(K-l) 

WRITEC JPT.340) HW,HAB 
WRITE( JPT, 1213) 


WRITE ( JPT ,1397 ) 
WRITFl JPT, 1213) 
i K A 


TO 350 

WRITE (JPT, 351) 


HW,HALFP (1) 

HAR-HALFPH(K) 

HAB-HALFB(K) 


IF(K.GT.l) 

IFCK.E0.2) 

IF(K.GT.l) 

KB-K-l 

IF(K.GT.l) WR I TE ( JPT, 1 397 ) KB 
IF(K.GT.l) 

00 339 1-1 
JWING-IWING(K) 

IF (IWGLT (K).EC.O) GO 
IF (I .EO. ( JWING+1 ) ) 

350 CONTINUE 

IF ( I WING ( K ) , NE ,0 • AND • I • 6T« I WING ( K ) ) 

IF ( I .GT.IWING(K) . AND. IWGLT (K >.60.2) 

YE-YLE (KCH)/HAB 
KCH-KCH + 1 

IFCI.NE.KA) GO TO 339 
IF (NW ( K , 2 ) . EO .0 ) GO TO 339 
IF(K.FO.l) KCH«KCH*NS (K ) 

IF(K.GT.l) KCH-KCH+NS (K )— NS (K-l ) 

WRITE (JPT, 32) YF,BMR(K,I),BML(K,I) 

WRITE (JPT, 1213) 

FORMAT ( 1 HO ) 

IF(K.FO.l) WRITE( JPT, 1210) C BMP ( Y ) ,C BML ( K ) 

FORMAT ( 69H TME BENOING MOMENT COEFFICIENT BASFO ON WING HALF SPAN 
1 AND WING AREA, /15X,1BHAT THE WING ROOT ■» F10. 6, 2X» 8H (R IGHT ) , , 2 X, 
21H-,F10.6,2X,6H(LEFT)) 

WRITE (JPT, 1213) 

IF(K.GT.l) URITFt JPT, 1411) CBMR ( K ) ,CBML ( K ) 
IF(1WING(K).NE.0.AN0.IWGLT(K).NE.1) WR ITE ( JPT, 1 211 >CBTR ( K ) , CBTL (K )VS 
1211 FORMAT ( 6BH THE BENDING MOMENT COEFFICIENT BASED ON FIN HALF SPAN AV5 
1N0 WING AREA, /15X,17HAT THE FIN ROOT ■ »F10.fc>2X,BH(RIGHT) , »2X, 1H-VS 
2,F10.6,2X,6H(LEFT) ) VS 

IF (IWGLT ( K ) , EO . 1 ) WRITF( JPT, 1214) CBTP (K),CBTl (K ) VS 

1214 FORMAT (2X»68HTHE BENOING MOMENT COEFFICIENT PASFD ON WING HALF SPAVS 
IN ANO WING AREA/10X,21HAT THE WINGLET ROOT -,F10.6,2X,8H(RIGHT) ,, VS 
22X,IH.,F10.6,2X,6H(LFFT) ) VS 

1411 FORMAT (2X#68HTHE BENDING MOMENT COEFFICIENT BASED ON WING HALF SPAVS 
IN ANO WING AREA/10X»1PHAT THE TAIL ROOT • ,F10.6» 2X , PH< R IGHT ) , * 2 X. VS 


339 

1213 

1210 


VS 

VS 

VS 

VS 

VS 

VS 

VS 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 


6764 

6765 

6766 

6767 

6768 

6769 

6770 

6771 
677? 

6773 

6774 

6775 

6776 

6777 

6778 

6779 

6780 

6781 

6782 

6783 
67P4 

6785 

6786 

6787 

6788 

6789 

6790 

6791 

6792 

6793 

6794 

6795 

6796 

6797 

6798 

6799 
6600 
6801 
6802 

6803 

6804 

6805 

6806 
6807 
6 808 

6809 

6810 
6611 
6812 
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OR'G^AL 

OF POOR 


PACE ti; 

QUALITY 


ALP-ALPACKI+l) 


2iH-*F10.6»2X»6H(lEFT) ) 

1396 CONTINUE 
93 CONTINUE 

alpii-alp 

ClII-CLTOT 
alp-alo+alpinc 

IFCKALP.LT.2.AN0.KI.LT.NAIP) 

ALO-ALP 

ALZ-AL0*180./PI 

LAT-LATT 

RETURN 

END 

C s 525o5™e L cJ™s<nt,n,b,cpf,nf,s,xlef,xf,)^ 

lBB»AMfSS»CS,SNP»F0»F10,VAP0»IVING,CREF»l,NCl»YK»DC#D$#IV»lP > S» 

2 NGRO, HEIGHT, ATT, I WGLT,NC, BREAK) 

/> riinilATF PRESSURE COEFF. ON FUSELAGE .... 

C DIHENS ION B(l),XFU),PF(20),SNPC5,20),MAPP(l)#NKF(l)#XASm 

DIHENSION CPF ( 1 0, 20 ) , U ( 8 ) , V ( 8 ) , L P AN1 ( 1 ) »NV ( 6 , 1 ) 

01 HE NS ION IWING(1),YK(6,1 ),DC(6,1),DS(6,1),IV(1),LPN(1),NS(1) 

DIHENSION IVGLT(1)»NC(1)» BREAK (6,1) 

36 FORHAT (8(6X#I4 ) ) 

PI-3.14159265 
PI4- 4 • *PI 
FNT-NF 
XTEF-XLEF+S 
NF1-NF-1 
TH1- SNP (5,20) 

NH1-SNP( 5,19) 


N7-1 

IF (L .NE. 0) NZ-2 
Fl-O. 

FLl-O. 

FNK-NKF(l) 

SL-XAS(2)-XAS(1) 

HH-NKF Cl) 

ND-1 

NN-0 

DO 15 I -1 , NF 
II-I+LPANEL 
IP-I-NN 
XC-XF (I) 

RFCI)-FUP(XC) 

FLl-Fll+BC II)*SNP (NO, IP)*Sl/FNK 
FL»FL+MARD(I)*SNP(ND,IP)*Sl/FNK 

IF (I .LT. HH .OR. I .EO. NF) GO TO 15 

ND-ND + 1 

NN-HH 

HH-NH+NKF ( ND ) 


VS 

6813 

vs 

6814 

vs 

6815 

vs 

6816 

vs 

6817 

vs 

6818 

vs 

6819 

VS 

6820 

vs 

6821 

vs 

6822 

vs 

6823 

vs 

6824 

vs 

6825 

VS 

6826 

vs 

6827 

vs 

6828 

vs 

6829 

vs 

6830 

vs 

6831 


VS 6832 
VS 6833 
VS 6834 
VS 6B35 
VS 6836 
VS 6837 
VS 6838 


VS 

6839 

vs 

6840 

vs 

6«41 . 

vs 

6842 ‘ 

vs 

6343 

vs 

6644 

vs 

6 84 5 

vs 

6844 

vs 

6847 

vs 

6348 

vs 

664C 

vs 

6850 

vs 

6851 

vs 

6852 

vs 

t'P 53 

vs 

68*4 

vs 

6855 

vs 

6856 

vs 

6857 

vs 

6858 

vs 

6859 

vs 

6860 

vs 

6861 
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i 



Sl«XAS(ND4l)-XAS<ND) 

VS 

6862 


FNK-NKF<ND) 

vs 

6863, 

15 

CONTINUE 

vs 

6864 


FL»F0*0.5*PI*FL 

vs 

6865 


FL1«F10+0.5*PI*F11 

vs 

6866 


DO 1 I “1 * NF 

vs 

6867 * 


A1-XF(I)-XTFF 

vs 

6868 


A2«S0RT(Al*Al48B*RF (I )*RF(I) ) 

vs 

6869 


XP»XF(I)-XLEF 

vs 

6870 


A6«S0RT(XP*XP4BB*RF<I)*RF (I) ) 

vs 

6871 


RFTL — (A1*A2)/RF(I) 

vs 

6872 


RFTO— (XP4A6)/RF(I) 

vs 

6873 


J-0 

vs 

6874 


IF (l .NE. 0) J-l 

vs 

6875 

2 

CONTINUE 

vs 

6876 


II«I*NF*( J-l)+tPANEL 

vs 

6877 


FNK-NKF (I 1 

vs 

6878 


SL-XAS (2)-XAS (1 ) 

vs 

6879 


HM-NK F < 1 ) 

vs 

6880 


NO-1 

vs 

68 P 1 


NN-0 

vs 

6882 


FJ-J 

vs 

6883 


U(J+l)-0. 

vs 

6884 


v(j 4 i)-o. 

vs 

6*85 


IF (J .GT. 2 .ANO. I .FO. NF) GO TD 20 

vs 

6886 


RFL--( (A1+A2)/RF(I) ) ** J / A 2 

vs 

68P7 


RFO--( (XP*A6)/RF(I) )** J/ A6 

vs 

6«8f 


IF (J .IT. 2) GO TO 16 

vs 

6889 


PFTt-O. 

VLn 

6890 


RFTO-O. 

vs 

6891 

16 

CONTINUE 

vs 

689? 


00 10 KC-1»NF 

vs 

689^ 


IP-KC-NN 

vs 

6894 


Bl-XFd)-XF(KC) 

vs 

6895 


B2-S0RT (Bl+Bl+BB^PF (I )*RF (I) ) 

vs 

68 96 


RFX--C (B1+B2) /RF( I ) >**J/R? 

vs 

6897 


KK-KC+NF*(J-1 J+LPANEL 

vs 

6898 


IF (J.EO. 0) GO TO 12 

vs 

6899 


U< J+l)-U( J + l ) -( B ( KK ) — B ( II ) )*RFX*SNP(ND#IP)*Sl/FNK 

vs 

6900 


IF (J .EG. 0) GO TO 11 

vs 

6901 


RFTX-- ( (P1+B2)/RF(I))+*J/FJ 

vs 

6902 


V(J41)«V( J+l)+B (KK)*SNP(ND,IP)*(PFTX-RFTL)*SL/FNK 

vs 

6903 


GO TO 11 

vs 

6904 

1? 

U(J + 1 )-l)( J + l )-(WARO(KC )-WARD(I) )*PFX*SNP(NO»IP)«SL/FNK 

vs 

6905 

11 

IF (KC .IT. NM .OR. KC .EO. NF) GO TO 10 

vs 

6906 


ND-NO+1 

vs 

6907 


NN-HN 

vs 

6908 


NH-HN4NKF (NO ) 

vs 

6909 


SL-XAS (ND4l)-XAS(N0) 

vs 

6910 
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FNK-NKFCNO) 

VS 

6911 

10 CONTINUE . , 

VS 

6912 

IF (J .EO. 1) VCJ+1)-C-V< J*l)*0.5*PI+<RFTL-RFT0>*F10>/t4.*PI> 

VS 

6913 * 

IFCJ.GT.l) VCJ + ll — VCJ-H)*0.125 

VS 

6914 

IFCJ.EO.O) UC J+l>— (FL*RFL-FO*RFO*U( J4l>*0.3*PI-VARD<I»*AL0C<<Al 

vs 

6915 

1+A2)/ CXP+A6)) J/PI4 

VS 

6916 

IF (J .EO. 1) UCJ+1)«-CFL1*RFL-F10*RF0+UCJU)*0.5*PI + BCII)/FJ*CPFLVS 

6917 

1*A2-RF0*A6) )/ C4.*PI ) 

VS 

691P 

IF (J .GT. 1) U(J*1)— (UC J*l)* 0 . 5 *PI*B<II>/FJ*CRFl*A 2 -RFO*A 6 n/C*, 

.VS 

6919 

1*M) 

VS 

6920 

V(M)>V( J*1)/RFCI) 

VS 

6921 

20 CONTINUE 

VS 

6922 

J-J + 1 

vs 

6923 

IF (J .IE. N) GO TO 2 

vs 

6924 

Nl-2 

vs 

6925 

IF CL .NE. 0) Nl-N+l 

vs 

6926 

DO 25 K-l.NT 

vs 

6927 

IF (NH1 .NE. 0 .AND. K .IE. NH1 ) GO TO 45 

vs 

692B 

FK-K-NH1 

vs 

6929 

FT-NT-NH1 

vs 

6930 

PP-PI-TH1 

vs 

6931 ‘ 

TP-TH1 

vs 

6932 

GO TO 46 

vs 

6933 

45 FK-K 

vs 

6934 

FT-NH1 

vs 

6935 

PP-TH1 

vs 

6936 

TP-O. 

vs 

6937 

4fc CONTINUF 

vs 

6938 

THETA- C2.*FK-1. )*PP/C2.*FT1*TP 

vs 

6939 

SINTA-SINCTHETA) 

vs 

6940 ~ 

COSTA-COS(THETA) 

vs 

6941 

PHI)f-0. 

vs 

694? 

PHIT-O. 

vs 

6943 

DO 30 J-NZ.Nl 

vs 

6944 

FJ-J 

vs 

6945 

IF (L .IF. 1) PHIX-PHIX*lMJ)*COSC CFJ-1. )*THETA) 

vs 

6946 

IF (L .GT. 1) PHIX-PHIX+UCJ)*SINCCFJ-1.)*THFTA) 

vs 

6947 

IF (L .IE. 1) PHIT-PHIT+VCJ ) ? (F J—l • )*STN ( ( F J— 1 • )°THET A) 

vs 

6946 

30 IF (L .GT. 1) PHIT -PHI T— V (J)*(FJ“1 » ) *COS C C F J-l • ) *THET A ) 

vs 

6949 

X-XFCI) 

vs 

6950 

Y-RF ( I )*SINTA 

vs 

6951 

T-RFC IJ4C0STA 

vs 

695? 

CALL UTFW CX,Y,7,$INTA .COSTA, L PANEL. BB . LPAN1 »NV, B# VX, VT» IWING, L » NC 

1VS 

6953 

1 » YK» DC # DS» IV» LPN» NS » NGRD# HFIGHT » ATT# IWGLT#NC# BREAK ) 

vs 

6954 

PHIX-PHIX+VX 

vs 

6955 

PHIT-PHIT+VT 

vs 

6956 

IF CL .NE. 0) GO TO 40 

vs 

6957. 

DRX-SLOP C X) 

vs 

6958 

DRX-ORX/RF Cl) 

vs 

6959 
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$PX-1./SCRT( 1 .+ORX*DP X ) H 

0RX-(CS*U(1))*DRX*SRX J| 

UVEL-CS+PHIX | 

V0L-DRX**2*(-SS*SINTA+PHIT)*P2 ** 

VOIP ■ 1 #“UVEL**2-VDL Jl 

35 F0PH4T (8F10.5) 

GO TO 41 

40 CONTINUE * s 

VOIP •**2 • *PHI X H 

41 CONTINUE y. 

IF (AH .LE. 0.1) GO TO 26 

IF <1 .NE. 0) GO TO 26 
ac«i.*o.2*am*am*vdif 
IF (AC .LT. 0.) GO TO 34 

CPF(K»I)-2./(1.4*AH4AH)*(AC**3.5-1.) *| 

34 CPP(K» I)-VDXF*AH*AH*PHIX*PMIX4AP*AH*PHIX*VOL+AH*AH*0.2S*VOL*VOL vs 

GO TO 25 2| 

26 CPF(K# D.VDIF ^ 

25 CONTINUE l\ 

1 CONTINUE X* 

RETURN rt 

tND R N NLSTIN VS 

SUPPOUTINE UTFW { X# Y#2 » SF #CF#lPANEl »B1# IP AN) * NU » GAMH A » VX » VT# IWIN6# l VS 
1»NC1# YK» DC# DS# IV# IPN#NS#NGRD# HEIGHT# ATT# I VGLT#NC» BREAK) VS 

TO CALCULATE VELOCITIES ON FUSELAGE DUE TO WINGS VS 

DIMENSION W (2 ) #NV(6#1 ) »6AHHA(1) »U( 2) »IWGLT(1 ) #NC (1 ) VS 

DIMENSION LPANl(l)#YK(fe#l)#DC(6#l)#DS(6#l)#IV(l)#LPN(l)#N$(l) VS 

DIMENSION IWING(1)»RPEAK(6#1) U1PM , M Xf 

COMMON /GEO M/ HALFSV#XCP(200)#YCP(200)#7CP( POO ) » XIF ( 100 ) » YL E ( ICO ) # VS 
1XTE(100)»PSI (30) »CH(] 00) »XV(200)# YV ( 200 ) » SN ( 6 » 1 5# 2 ) » XH ( 2C0# ? ) » YN( ?V .» 
200»2)»7N(200#2)»VI0TH(fe»5)»YC0N(51 ) # SVE EP ( 100 ) » HALEP ( 6)»$J(6#31#55VS 
P I -3 . 1 4159265 VS 

VS 

12,1 VS 

IFF ' 1 vs 

nr V* 

IG-l 

IE ( NGRD .EQ. 1) LG-2 *1 

NASYH-YCON( 50) 

IW-1 VS 

MM-NW ( K» 1 ) VS 

NN-NW ( K # 1 ) *“ 

FACTOR-1. 

IE (L .GE. 2) EACT0R--1 . VS 

vx-o. vs 

VT-O. V * 
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ZA-O. 

YA-BREAK(1»1> 
YAA-8REAK (1»1 ) 
IF (NASYN .EO. 
YA»YK(1#NC1) 


0) 60 TO 73 


YAA-YA 

IF (NCI .EO. 1) 60 TO 73 

NC11-NC1-1 

00 74 J-l.NCll 

ZA-ZA+(YK (K.J)-YK (K » J +1 > > *DS (K . J*1 > 

74 YAA-YAA+( YK (K # J )— YK (K # J + l )> *DC ( K# J +1 ) 
YA-YKIK.l ) 

73 CONTINUE 
YAP-YA 
YAAP-YAA 
IPN-1 

00 10 J-l.LRANEL 


ISN-1 

Hl-J-IFF+1 

COSD-OC(K.IPN) 

SINO-OS(K.IPN) 

If (J.GT.IPAN1 (K) .AND.J.LE.IPN(K) 
IF(J.EO.LPN(K ) . AND. J.LT .LPANFL) 
IF (J .GF. LPANl(K) .AND. J .LT. 


) ISN-2 
NN«NV(K*1»1> 
LPNCM) NN-NW(K, 


2) 


FN-NN 

CHORD-CH(IZ) 

XI -XN ( J » 1 ) — X 
X2-XN( J,2)-X 
X12«XN(J.2)-XN(4»1) 
Y12-YN(J»2)-YN( 4»1) 

ISN-2 

IF C T V t K » .EO. 1) ISN-1 
IF (NASYN .EO. 1) ISN-1 
00 16 II-l.ISH 
FCP-1. 

IF (II .FO. 2) FCP— 1. 
W(II)-0. 

U( II ) -0. 

00 16 KK-l.LG 

Z12-ZN(J»2)-ZN(J»1)*Y12*SIN0 

Y12- Y1 2+COSO 

YC-Y*FCP 

Y1-YAA-MYN( 4 » 1 ) -YA ) *C OSD-YC 
Y2-YAA+(YN( J,2)-YA)*C0S0-YC 
IF (KK .EO. 1) GO TO 18 
ZC«-2.*(7+HEI6HT>+7 


6E— 1. 
FCQN-1. 
60 TO 10 


VS 

7000 

VS 

7010 

vs 

7011 

vs 

7012 

vs 

7013 

vs 

7014 

vs 

7015 

vs 

7016 

vs 

7017 

vs 

7018 

vs 

7010 

vs 

7020 

vs 

7021 

vs 

7022 

vs 

7023 

VS 

7024 

vs 

7025 

VS 

7026 

vs 

7027 

vs 

7028 

vs 

7029 

vs 

7C30 

vs 

7031 

vs 

7032 

vs 

7033 

vs 

7034 

vs 

7035 

vs 

7036 

vs 

7037 

vs 

7038 ' 

vs 

7039 

vs 

7040 

vs 

7041 

vs 

7042 

vs 

7043 

vs 

7044 

vs 

7045 

vs 

7046 

vs 

7047 

vs 

7048 

vs 

7049 

vs 

7050 

vs 

7051 

vs 

7052 

vs 

7053 

vs 

7054 

vs 

70.55 

vs 

7056 


VS 7057 
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18 ZC-Z 
GE»1. 

FCON-O. 

19 CONTINUE 

Z1-7N< J#1)-ZC+ZA*(YN( J»1)-YA)*$IND 

T2-7N< J»2)-7C*7A*(YN< J»2)-YA)*SIND 

UCON«-Zl*Y12*(-ATT)*FCON 

XZJ-X1*Z12-Z1*X12 

XYK-X1*Y12-Y1*X12 

YZI-Y1*712-71*Y12 

ALB1-XYK*XYK+X7 J*XZ J+B1*Y7I*Y?I 

R1B1-SQRT<X1*XH-B1*Y1*Y14B1*Z1*71) 

R2B1“S0PT(X2*X2*B1*Y2*Y2*B1*7?*72) 

UUB1- (X2* X12*B1*Y2*Y1 2*81*72*71? ) /R2Bl-( X1*X1?*B1*Y1*Y1 2+81*71* i 
D/R181 

IF (IP .EO. 1) GO TO 35 
37 CONTINUE 

G1B1»(1.-X1/R1B1>/(Y1*Y1+Z1*Z1 ) 

GO TO 36 

35 IF <1 .GE.2.AND.IV(K ).EO.O) GO TO 37 
G1B1-0. 

36 CONTINUE 

G281- (1.-X2/P2P1 )/(Y2*Y2* Z2*72) 

F12-UUB1* (UCOH4XYK )/ALBl*GE 

G12-(-Y2*G2Bl*Yl*G181)*GE 

F13--UUB1*XZJ/ALB1 

G13-72*G2B1-Z1*G1B1 

F1»+F13*CF*FCP-F12*SF 

F2-G13*CF*FCP-G12*SF 

F3-UUB1*Y7I /AIB1 

U(II>«U(II)+F3*CHORD*SN(K»HI»ISN)*f ANHA(J)/(8.*FN) 

16 W( II ) •«( 1 1) ♦ ( F1*F2) *CHOPD*SN(K#NI» ISN ) ♦GANf'A ( J ) / ( B.*FN) 

VT«W ( 1 )+FACTOR*W(2)+VT 

VX«U ( 1 ) +F ACTOR*U( 2 ) +VX 

IF (J .LT. NM) GO TO 17 

IF (J .EO. LPANEL) GO TO 10 

IP-IP+1 

IZ-IZ+1 

IV-IV+1 

IFF-HM+1 

MH-MM+NN 

IF(IWING(K).NE.O .ANO.IW.EO. ( I WING (K ) +1 ) ) GO TO 14 
IF(J.E0.LPAN1(K).0R.J.E0.LPN(K)) GO TO 32 
IF (YIE (IZ).lT.YK(K»IPN) ) GO TO 17 
14 CONTINUE 
NJ-0 

IF(NASYN.EO.l.ANO.IPN.tT.NCl) NJ-1 
IF(NJ.EO.l) I PN ■ I PN *1 
7A-7A+(YK(K,IPN)-YA)*DS(K»IPN) 


VS 

705* 

vs 

7059 

vs 

7060 

vs 

7061 

vs 

7062 

vs 

7063 

vs 

7064 

vs 

7065 

vs 

7066 

vs 

7067 

vs 

7068 

vs 

706<j 

vs 

7070 

2VS 

7071 

vs 

707? 

vs 

7073 

vs 

7074 

vs 

7075 

VS 

7076 

vs 

7077 

vs 

7078 

vs 

7079 

vs 

7080 

vs 

7081 

vs 

708? 

vs 

7063 

vs 

7064 

vs 

7065 

vs 

7086 

vs 

7087 

vs 

7088 

vs 

7089 

vs 

7070 

vs 

7091 

vs 

7092 

vs 

7093 

vs 

7094 

vs 

7095 

vs 

7096 

vs 

7097 

vs 

7098 

vs 

7099 

vs 

7100 

vs 

7101 

vs 

7102 

vs 

7103 

vs 

7104 

vs 

7105 

vs 

7106 
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ORIGINAL 

OF POOR 




GO TO 2 2 


22 

32 


23 


17 


10 


IPN-1 


KH-1 


15 


Y AA -YAA+<YK(K#IPN)-YA>*DC(K#IPN> 

IF*(IWlN6(K!.NE.0.AND.IW.E0.UWlNG(K>4in 

GO TO 23 

IF ( IUGLT (KJ.EO.l) GO TO 23 
2A-0. 

YA-BREAK(K.l) 

IFtMASYH.EO.l .AND.J .EO.lPANl(K) ) YA-YAP 
IF(NASYH.EO.l.ANO.J.EO.LPAHKK) ) YAA-YAAP 
IF(J.EQ.LPNOO.AND.K.IT.6> YA«8REAK(K4l,l> 
IF(J.E0.LPN(K).AN0.K.LT.6) YAA-BREAKIK4l.il 
IF ( J • EQ.LPANl ( K ) .OR • J .EQ »LPN(K ) ) GO TO 23 
IF ( IWGLT (K ) »NF .2) GO TO 23 
2A«YK(K,NC(K)-2)*0S(K»1) 

YAA-YK <K#NC (K )-2 )*DC(K»1) 

YA-YK (K.NCOO-?) 

CONTINUE 

IF(NJ.NE.l) IPN-IPN+1 
IF ( J.EC.LPAN1(K).0R.J.E0.1PN(K>) 

IMJ.FO.LPANl(K). AND. J.NF .LPNIK ) ) 

IF (KH.EO.l.AND.K.EQ.l ) IW-IV-NS(K) 

IF(KH.EO.l.AND.K.GT.l) IV-IV-NS IK) *NS (K-l I 
IFU.E0.1PAN1 (K ) > IP-1 
IFCJ.EO. LPNIK)) IP-1 
IF (J .EO. LPNIK ) ) K-K + l 
RETURN 
ENO 

SUBROUTINE FUSl FT ( C PF t HAL FSV»CR EE# S S #CS #L # XREF»CLLF * SKN»CDL 
TH * Al CUL ATE FUSELAGE FORCES AND NOMFNTS 

0 1 HEN S I ON AW(21)>CSTC15)f CU(20)»RP(20)#CPF(10#20)»CA(20) 

DIMENSION BW(21)#CB(?0) 

COMNON /FUS/ XF(20),XCF(2C),RF(20)#SNP(5,20),UFF,XTEF,VASD 

1NCUN,NF.NT,CSFC5.10).YAS(M#NKFI5).F0.F10#KF,NTL#LWF#WKN,RP 

COHNON /INOUT / INPT.JPT 
DATA CST /I 5*0 • / 

PI«3.14159265 
SLENTH-XTEF-XLEF 
TH1-SNP 1 5» 20 ) 

NH1-SNP ( 5*19) 

00 1 I -1 # NF 
XC-XFCI) 

L RPIII-FURIXC) 

FCUN-NCUN 

IF <1 .NF . 0) GO TO AO 

FORNAT ( //IX » 58H***FUSELAGE AERODYNANIC CHARACTERISTICS ARE GIVEN 


) 


'( 20 ) » 
>X,X1 


VS 

7107 

vs 

7108 

vs 

7109 

vs 

7110 

vs 

7111 

vs 

7112 

vs 

7113 

vs 

7114 

vs 

7115 

vs 

7116 

vs 

7117 

vs 

7118 

vs 

7119 

vs 

7120 

vs 

7121 

vs 

7122 

vs 

7123 

vs 

7124 

vs 

7125 

vs 

7126 

vs 

7127 

vs 

7128 

vs 

7129 

vs 

7130 

vs 

7131 

vs 

7132 

vs 

7133 

vs 

7134 

vs 

7135 

vs 

7136 

vs 

7137 

vs 

7138 

vs 

7139 

vs 

7140 

vs 

7141 

vs 

714? 

vs 

7143 

vs 

7144 

vs 

7145 

vs 

7146 

vs 

7147 

vs 

7148 

vs 

7149 

vs 

7150 

vs 

7151 

vs 

7152 

vs 

7153 

vs 

7154 

1 BVS 

7155 
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If LOW***) 

21 FORMAT ^ (/5X#65HPRE$SURE DISTRIBUTION AT THETA-LOCATIONS 
1 DEFINED BELOW) 

DO 22 I-1»HCUH 

. IF (NH1 .HE. 0 .AND. 1 .LE. NHl) GO TO 70 
fi-i-nhi 
fcum-ncup-nhi 
PP«(PI-TH1)*180./PI 
TP-TH1*1B0./PI 
60 TO 71 

70 FI-I 
FCUM-NH1 
PP-TH1*180. 1 * I 
TP-O. 

71 CONTINUE 

22 AW(I)-(2.*f I-1.)*PP/C2.*FCUHHTP 

WOITF (J®T#23) ( I # AW(I ) » I-l »NCUM) 

23 FORMAT (/ 5 (3X# 5HTHETA » 1 2 1 1H- »F5 . 1 ) ) 

WRITE { JPT* 24 ) ( I # I *1 #NCUN ) 

24 FORMAT ( / 5X 1 3HX /L » 9X» 5HTHETA* 1 2 » 9< 5X, 5HTHE TA, 12 ) ) 

DO 11 I -1 * NF 

XC-t<F (I)-XREF WSlENTH 
11 WRITE ( JPT» 26 ) XC » ( CPF ( K» I ) »K -1 *NCUN ) 

2fc FORMAT ( 1 IF 12 • 5 ) 

40 CONTINUF 
CNF- 0 • 

CAF-O. 

CMF-O. 

DO 7 I-l.NCUN 

IF ( NH1 ,NE . 0 .AND. I .IE. NH1 ) GO TO 72 

FI-I-NHI 

FCUM-NCUM-NH1 

PP-PI-TH] 

TP-TH1 
60 TO 73 

72 FI-I 
FCUM-NH1 
PP-TH1 
TP-O. 

73 CONTINUF 

THETA- (2.*FI-1. )*PP/(2.*FCUM)+TP 
IF (l .GF. 2) CSTd)-SIN(THFTA) 

7 IF (L .IT. ?) CSTCI)-COS(THETA) 
si-xAsm-xAsm 
FNK-NKF <1 ) 

MH-NKF (1) 

NC-1 

NN-0 


VS 

7156 

VS 

7157 

IN OEGREESVS 

7158 

VS 

7159 

VS 

7160 

vs 

7161 

vs 

7162 

vs 

7163 

vs 

7164 

vs 

7165 

vs 

7166 

vs 

7167 

vs 

7168 

vs 

7169 

vs 

7170 

vs 

7171 

vs 

7172 

vs 

7173 

vs 

7174 

vs 

7175 

vs 

7176 

vs 

7177 

vs 

717? 

vs 

7179 

vs 

7180 

vs 

7181 

vs 

7182 

vs 

7183 

vs 

7184 

vs 

7185 

vs 

7ie6 

vs 

7187 

vs 

7188 

vs 

7189 

vs 

7190 

vs 

7191 

vs 

7192 

vs 

7193 

vs 

7194 

vs 

7195 

vs 

719fc 

vs 

7197 

vs 

7198 


VS 719*5 
VS 72C0 
VS 7201 
VS 7202 
VS 7203 
VS 7204 
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I 


00 20 I"1#NF 
CPTL-0. 

CPTn-o. 

IP-I-NN 

00 25 K-1»NCUM 

IF ( NH1 .NE. 0 .AND. K .IE. NH1) GO TO 74 

FCUH-NCUH-NH1 

PP-PI-TH1 

GO TO 75 

74 FCUM-NH1 
PP-TH1 

75 CONTINUE 

CPTD-CPT04CPF (K»I)*PP/FCUH 
25 CPTL“C p TL4CPF(K»I)*CST(K)*PP/FCUM 

IF (I • EO.NF • AND. ABS (CTL( I ) )'• GT. ABS(CTL ( 1-1 >)) CTt(I)«0.5*CTL(I-l) 
CPT0-2.*CPT0 

60«RPCII*SNPCNC»IP)*CPT0*Sl/(?.*FNK) 

GB-RPm*SNP(NC,IP)*CTl(I )*Sl/(2.*FNKI 
C A ( I ) ■GB*FNK/SL 
X-»F ( I > 

S-SLENTH 

ORX-SLOP(X>/RP(I» 

SO»SORT(1.4CRX*0RX) 

C A (I ) “C A ( I ) /SO 

CB(I )»GD*FNK/(SL*SO)*OPX 

CAF«CAF+GD*ORX/SO 

CNF-CNF+GP/SO 

CNF»CHF+G8*(XF(I J-XPEF ) / SO 

IF (I .IT. PH .OR. I .FO. NF) GO TO 20 

NC-NC+I 

NN«HH 

HM-MM4NKF (NC ) 

SI “X AS (NC *1 )~ X AS (NC ) 

FNK«NKF(NC) 

20 CONTINUE 

IF ( ABS( (XAS(2)-XTEF)/SLFNTH) .GT. 0.011 GO TO *4 

ICK-l 

FNF-NF 

NFl-NF+l 

00 51 J«1»NF1 

AW(J)-0. 

BW ( J ) "0. 

FJ»J 

00 52 K-l.NF 

CK-C0S((FJ-1.)*(2.*FK-1.)*PI/(2.*FNF)) 

BW(J)«BW(4)4CB(K)*CK 


VS 

7205 

vs 

7206 

vs 

7207 

vs 

720P 

vs 

7204 

vs 

7210 

vs 

7211 

vs 

7212 

vs 

7213 

vs 

7214 

vs 

7215 

vs 

7216 

vs 

7217 

vs 

721? 

vs 

7210 

vs 

7220 

vs 

7221 

vs 

7222 

vs 

7223 

vs 

7224 

vs 

7225 

vs 

722c 

vs 

7227 

vs 

7228 

vs 

7220 

vs 

7230 

vs 

7231 

vs 

T 232 

vs 

7233 

vs 

7234 

vs 

7235 

vs 

7236 

vs 

7237 

vs 

723? 

vs 

723° 

vs 

7240 

vs 

7241 

vs 

7242 

vs 

7243 

vs 

7244 

vs 

7245 

vs 

7246 

vs 

7247 

vs 

724? 

vs 

7244 

vs 

7250 

vs 

7251 

vs 

7252 

vs 

7253 
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52 AWiJJ 
IF (J 
If (J «NE. 
IF(J.EO.l) 

ifij.ne.d 

51 CONTINUE 


AW(J)*CA(K)*CK 

.EO. 1) AW( JWW(J)/FNF 

1) AW(J)-AW(J)*2./FNF 
BW( J ) -BW { J ) /FNF 
PW(J)-BW(J)*2./FNF 


C 

G 

C 


THF STATION AT WHICH THE FLOW CEASES TO 


EMPIRICAL METHOD TO FIND 
POTENTIAL. SEE DATCOM ♦ 

XO-O. 378+0. 527*X1 
TH-AC0S(1.-2.*X0) 

SUh-awui*th 

SMMa-A W ( 1 ) *S IN ( TH )— 0. S* AW < 2 )* (TH+0«5*SIN( 2 •*TH) ) 

00 53 J-l.NF 

If’( J.GE.2) $MM-SMM-0.5*AW(J41)*CSIN( (FJ-1.)*TH) 

1. )*TH) /(FJ+l. ) ) 


53 


5* 


31 


32 


33 

42 


SK-SIN(FJ*TH) 

SA»SA+BV( J+1)*SK/FJ 
SUM-SUH+AW(J+1)*SK/FJ 
SMM-SMM+SUM 

SUN* SUN#SL ENTH / ( ?.*HALFSV) 
S hm--SMN+SLENTH**2/ (4.*HALFSW*CREF ) 
SMM«SNM-(XLFF-XRF F » /CRFF*SUM 
SA-SA*SLENTH/(2.*HALFSW) 

CONTINUF 

IF <L .NE. 0) GO TO 42 
WRITE ( J p T #31 ) ^ 

FORMAT C/5X,63HT0TAL PRESSURE LOAD ING 

1L0CAL RADIUS) 

FORMAT t/5X#3HX/L #9X»6HRADIUS»6X»7HL0ADING) 

DO 33 I-l.NF 
XC-XF ( D/SLENTH 

WRITE ( J PT »26 ) XC»RP(I WCTL(I) 

CONTINUE 

CLF-CNF*CS-CAF*SS 

CDF«CNF*SS+CAF*CS 

C0F«CDF*RI/(2.*HALFSW) 

CLF-CLF*PI/(2.*HALFSW) 

CNF--CNF*PI/(2.*HALFSW*CPFF) 

CLLF-SUH+CS-SA+SS 

CDl-SUM*$$+SA*CS 

SS-CLF 

CS-CHF 

IF ( ICK .EO. 0) GO TO 60 

CLF-SUH 

SS-CLF 


VS 7254 
VS 7255 
VS 7256 
VS 7257 
VS 7258 
VS 7259 
VS 7 260 
PEVS 7261 
VS 7262 
VS 7263 
VS 7264 
VS 7265 
VS 7266 
VS 7267 
VS 7268 
VS 7269 

/CFJ-1.)+SIN((FJ+1VS 7270 

VS 7271 
VS 7272 
VS 7273 
VS 7274 
VS 7275 
VS 7276 
VS 7277 
VS 7278 
VS 7279 
VS 7280 
VS 7281 
VS 72P2 
VS 7203 
VS 7 ? P4 
VS 7285 
VS ^PFfe 
VS 7'.'R7 
VS 7288 
VS 7289 
VS 7 ?.90 
VS 7291 
VS 7292 
VS 7293 
vs 7294 
VS 7295 
VS 7296 
VS 7297 
VS 7298 
VS 7299 
VS 7200 
VS 7301 
VS 7?.02 


AT EACH X-STATION, BASED ON 
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PAGE IS 

OF POOR QUALITY 


ORI&:' ■ ’CE S 3 

OF POO*. gjALiTY 


cs-smm 

IF(L.EO.O) 60 TO 60 
CLLF-SUM 
60 CONTINUE 

IF <1 .NE. 0) GO TO 43 
WRITE ( JPT» 36 ) CLF 
WRITE ( JPT» 35 ) CNF 
WRITE( JPT»37) COF 
WRITE ( JPT. 38) 

WRITE ( JPT * 39 ) CLLF 
WRITF ( JPT#44 ) SUM 
WRITE (JPT#37) COL 

vs 
vs 
vs 
vs 
vs 
vs 


43 

35 

36 

37 

38 

39 

44 


VS 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 


1 AFT VISCOSITY— DOMINATED REGION* SEF PATCON) 
*!SIaTC/-X. 31 HTHE FUSELAGE LIFT COEFFICIENT ;>F10.5> 
FPOMAT(/5X.33HTHE FUSELAGF MCNFNT COEFFICIENT -,F10..) 
RETURN 
END 


2SJ»WIDTH»ICAH#GAS»ABD#NASYM#IV#NLFF»YD2*KF) 

TO CALCULATE VORTEX BREAKDOWN ALPHAS 
COMMON /INOUT/ INPT#JPT 

DIMENSION RREAK (6#1)»YA(1)»NVPTX(1)»N1(6»1)»NC(1) 

DI HENS ION LPN{l)*YCMX(6»2)#HXn)#NSTP(l>»YPR(6, 

01 HE NS ION YN(200»21»CS(1)>YLE(1I»A(30)»NW(6#1)»CI50i»T( 0 

nTMPN^TON SWEEP (1 ) t NS ( 1 ) # AIPBD( 6# 2 ) #.IWING( 1 )#HALF0C1) 

S!.FKSlS» SJ("3'’5WUIOTH(6.M.SKnOI.IC^Cl).G»5il)»GK(?.?) 
DIMENSION APD(6»l)»SLC30)»IV(l)»NLEF(l)#YD2(f»l) 

PI-3.14159265 
SN2-SIN< ALP)**2 
GB-S IN ( BETA ) 

GB2-GB*GB 

BK-BETA 

NK-0 

N-l 

68 FORMAT (/5X> 32HVORTEX-BREAKDOWN CHARACTERISTICS) 

DO 5 K-1»NSUR 

IG-l . „ 

IF(HVRTX(K).NE.O) IG-2 
IPP-RREAK (K»IG+5) 

IE-IG 


VS 

VS 

VS 

VS 

VS 

VS 

VS 

VS 

VS 

VS 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 


7303 

7304 

7305 

7306 

7307 

7308 

7309 

7310 

7311 

7312 

7313 

7314 

7315 

7316 

7317 

7318 

7319 

7320 

7321 

7322 

7323 

7324 
7323 

7326 

7327 
732P 

7329 

7330 

7331 ‘ 

7332 

7333 

7334 

7335 

7336 

7337 

7338 

7339 

7340 

7341 

7342 

7343 

7344 

7345 

7346 

7347 

7348 

7349 

7350 
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tMK.F0.11 NK-NK+NVRTXtK) 


IFCK.GT.l.ANO.NVRTXCKl.NE.O) NK-NMKVRTXIK>-NS<K-1> 

IP-0 

IFCK.GT.il IP-NS(K-l) 

H-NSCK) 

IFCK.GT.11 h-NS(K)-NS(K-1 ) 

IF(lMlN6CK).NE.0.ANn.K.EC.l) M-IVINGCK 1 
IFdWINGCK) .NF.0.AN0.K.GT.1 1 N-H«rN$ < M ♦ I «T NC ( « 1 
H2-0 
TP-* 

IFCK.FO.il T P ■*— MV& TX ( K 1 

IFCK.GT.1.AND.NV°T* ( K 1 . N F « 0 1 I» -K-* VRT V ( k ) ♦ ‘•S C K-l ) 

IF CNC (K ) .FO.l ) GO TO A 

IFtHC CK1.E0.2 .AMP. HVFTX (K ) ,NF .0) GO TO * 

IF(IPP.EQ«11 GO TO 1 

K2 • H - 1 

DO f> I ■ 1 » K2 

M2-N2-H 

KH-I+NK 

IFCABSCSVEEPCKHl-SWEEPCKH+lll.GT.O.l) GO TO 7 
f. CONTINUE 
A CONTINUE 
MSTPCK 1-0 
H-IR 
NX CK 1 ■ 1 

HREF- HALF BCK1-BRFAK CK,IG) 

YRFF-BREAMK, IG ) 

YA(K) -BREAK (K » I G 1 
GO TO B 

1 H2-N1 C K » I G 1 -1 
KH-NK+H? 

7 NX (K 1 ■ 2 
N-N2 

HSTP (K 1-KH+l 
IF -1 

11 CONTINUE 

TF<VLE(KH).GT.npF/K(N,IF).ANr>,YlFf‘' u >.lT.BPFAK(K,TF*l)) GO TO 13 

TE-IF+1 

GO TO 11 

11 MRF c -BREA 1, (^*IF'*1 ) -np F A K C K » I G 1 
YPFF-0PEAMK, IP) 

YACK 1 -BREAK (K.IE+1) 

IMNASYM.EO.O) GO TO 8 
IFCYPEF.tT.O. 1 YREF -BREAK (K,I€U1 
IFCYACKI.LT. 0.) YACK1--BPEAK(K,IG) 

IFCYACKI.LT. 0.) YACK) — BREAK <K# IF) 

8 CONTINUE 
NI-NVRTXCK1 

IF CK.GT.l.ANO.NVRTX CK) .NE.O) NI-NVRTX C K 1-NS C K-l ) 

NT-N4NI*NWCK#11 


VS 

7351 

VS 

j 

7352 

vs 

7353, 

vs 

7354 

vs 

7355 

vs 

7356 

vs 

7357* 

vs 

73 5 P 

vs 

7359 

vs 

7360 

vs 

7361 

vs 

->362 

vs 

7363 

vs 

7364 

vs 

7365 

vs 

7366 

vs 

7367 

vs 

7368 

vs 

7369 

vs 

7370 

vs 

7371 , 

vs 

7372 

vs 

7373 

vs 

7374 

vs 

737? ‘ 

vs 

7376 

vs 

7377 

vs 

7378 

vs 

7379 

vs 

73 30 4 

vs 

7381 

vs 

7382 

vs 

7383 

vs 

7384 

vs 

73 

vs 

">38* 

vs 

7? R 7 

vs 

73PP 

vs 

73 P 9 

vs 

7390 

vs 

7*91 

vs 

7392 

vs 

7393 

vs 

7394 

vs 

7395 k 

vs 

7396 

vs 

7397 

vs 

7398 ; 

vs 

7399 

vs 

7400 
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IF CM AS YH. EO.l ) NI ■ ( H-l )*NW ( K > 1 )-Hl *NW(K »1 ) *N 

N»NI 

WRITE ( JPT»3 ) N*NK*IR 
IF(KB.EO.O) Y02(K»1J»IE 
HII-HI 
IXV-1 

IF(ICAM(K).NE.O.OR.NIEF(K).E0.1) ICHK-1 

IF(ICHK.EO.l) IXY-2 

IF (KB .NE. 0) IXY-1 

IE-IG 

KHH-KH 

HN-H 

NKK-NK 

IEE-IE 

YRFF ■YPEF 

HRFF-HRFF 

DO 21 K J ■ 1 # I X Y 

IF (KJ .EO. 1) NX»N 

IF (KJ .EO. 2) N«NX 

TF(KJ.EO.l) GO TP 33 

NK «NKK 

IE-IEE 

KW-KMM 

MI«*IT 
YPFF-YRFF 
HRFC «HRFF 
3? CONTJNl'P 

UR IT c ( J PT * *° ) K 

*o FPP«»T(/?Y»?1H<**F0R SURFACf NUMBER* I3*2 Y »*W***) 
IF (KJ .EO.l .AND.IXY.FC.2) WPITF ( JPT»*7) 
IF(KJ.EO.l.AHD.IXY.EO.l) V’PITF ( JPT»66) 
IF(KJ.EQ.2.AN0.IXY.E0.2) WRITE ( JPT.66) 

67 FORMAT (/» 5X >19H(F0P. CAMBERED WING)) 

66 FORMAT (/>5X,22H(FOR NONC AKBEREO WING)) 

K2 - M X ( K ) 

00 9 ID-1»K2 

IF (10 .EQ.2) M-IR-M2 

IF (I0.E0.2) MI-M2 + MI 

IF (10. EO. 2) YREF-HREF+YREF 

IF(I0.E0.2) HRFF»HALFB(K)— YREF 

IF(NASYM.E0.1.AN0.ID.F0.2) ypff-o. 

IF(NASYH.E0.1. AN0.I0.E0.2) HREF»HALFB(K ) 

IF (I V (K ) . EO.l ) GO TO 90 
IF(KB.NE.O) GO TO 17 

C WR ITE ( JPT » 3 ) M?»KH»M»MI»NK»IE»MX(K) 

C WRITE ( JFT» 2 ) YREF#HREF 

3 FORMA.T (8( 6XtT*) ) 


VS 

7*01 

vs 

7*02 

vs 

7*03 1 

vs 

7*0* 

vs 

7*05 

vs 

7*06 j 

vs 

7*07 

vs 

7*08 

vs 

7*09 

vs 

7*10 

vs 

7*11 

vs 

7*12 • 

vs 

7*13 

vs 

7*1* 

vs 

7*15 . 

vs 

7*16 

vs 

7*17 

vs 

7*1 P 

vs 

7*19 

vs 

7*20 

vs 

7A 21 - 

vs 

7i >22 

vs 

7*23 

V* 

7*2* 

vs 

7*2*5 

VS 

7*26 

vs 

7*27 

vs 

7*28 

vs 

7*29 

vs 

7*30 ' 

VS 

7*31 

vs 

7*32 

vs 

7*33 

vs 

7*3* 

vs 

7*35 

vs 

7*36 

vs 

7*37 

vs 

7*38 

vs 

7*39 

vs 

7**0 

vs 

7**1 

vs 

7**2 

vs 

7**3 

vs 

7***i 

vs 

7**5 

vs 

7**6 

vs 

7**7 

vs 

7**8 

vs 

7**9 


I 


2A1 


» 



c 


c 


IF<ID.E0.1) yvf-yref 
00 10 I“1»M 

1 1 «I ♦ H K 

IF(YLE(II).LT.O.) Il-M-II+1 

TT«1.-(ABS(YLE(II))-YREF)*2./HREF 

Tf I) • ACOS f TT ) 

Sim»SIN<TC!>> 

SK Cl) "SKI) 

Y-YLFC1I) 

WRITE (6» 100 ) II»Y#SK(I)»TT»SL(I> 
100 F0RMAT(6X*I4»4F10»5) 

AS “C SCII) 

If (KJ .FO. 2) AS«GAStII> 

io cm«AS*sMi>me*SN?i 

WRITF(JPT»?HC(I)#I«1»M> 

T(M+1) »P I 

oo 15 i»i»r 

KC-T c *IC-1 
KCHL-H1 (K ,KC 1 


KLL-0 

*U)-0. 

00 16 J-l »M 

IF ( J .IT.NCOL ) 00 TO 24 

KU-NCOL-l 

KC«*C*1 

NCOl-NCOl+Ml <K,KC)-1 

2< * IF(NASYH.FO.l.ANO.IO.EO.l) KL-M-l J-KLl J *1 
FM-M1 (K,KC) 


JJ.J 

IF(NASYM.EO.l.ANO.lO.EO.l) JJ«M-J+1 

Ic-WI0TH(K,KC)/HPEF*CUJ)/SL(JJ)*SJ(K,KUKC).C0SC(I-1 

16 MII‘*(I)*AC 
15 IF(I.NE.1)A(I»»2.*ACI) 

IE-KC 

IF(ID.E0.2.ANO.KR.EO.O) YC2(K»2)"KC 
00 20 I«1»M 
C ( II “A ( 1) 

K3 • M - I 
00 23 IJ-1.K3 

23 C(I)«C(I)+A(IJ+l)*COS(IJ*T(in 

20 cm-cnwsKd) 

IW + ip+hi 

IK-IP+M+MI 

c WRITE ( JPT* 2 ) tC$m»I-II»IK> 

C WRITE ( JPT»2 ) (C(X)»Z-1»N) 

2 FORMAT (6F10.5) 

IPK«0. 


)*TG)/FM 


VS 

7450 

vs 

7451 

vs 

7452 

vs 

7453 

vs 

7454 

vs 

7455 1 

vs 

7456 

vs 

7457 

vs 

7458 

vs 

7459 

vs 

7460 

vs 

7461 

vs 

7462 

vs 

7463 

vs 

7464 

vs 

746 5 

vs 

7466 

v< 

7467 

vs 

746 P 

vs 

7469 

vs 

7470 

vs 

7471 

vs 

7472 

vs 

7473 


VS 

7474 

VS 

7475 

VS 

7476 

VS 

7477 

VS 

7478 , 

vs 

7479 

vs 

7480 

vs 

74 81 

vs 

748? 

vs 

74R3 

vs 

7484 

vs 

7485 

vs 

7486 

vs 

7487 

vs 

74 6? 

vs 

7480 

vs 

7400 

vs 

7401 

vs 

7402 

vs 

74<n 

vs 

7404 

vs 

7405 

vs 

7406 

vs 

7407 

vs 

7408 
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O' 


DUALITY 


i<> 

14 


l? 


56 


55 

60 


ICN-0 

00 14 I -2»M 

IF(I.GT.2.AND.C(I).LT.C(I-1)) ICN-0 
IF(Cm.6T.C(I-l)) ICN-ICNd 
IF Cl. F 0.2. AND. C (II. IT. C <1-111 ICN-IC«4l 
IF (ICN.F0.1 ) GO TO 19 
IFCC d l.GT.C d-1)) 60 TO 14 
ICN-0 
GO TO 14 
IPK-IPK+1 
CONTINUF 

IF(NC (K).EO.l) IPK-1 
WR ITF ( JPT » 3 ) I PR 
IN-1 
It-l 
ICN-0 

00 12 I-2»H 

IFCCCI).LT.C(I-l)) ICN-ICN41 
IF(ICN.FO.l) It-IL+l 
IFlC(I).6E.C(I-in 1N-IN41 

IF<Cd).LT.C(I-ll.AND.IL.LE.IPK) IN-IN+l 

IFlCdl.GE.Cd-lU ICN-0 
CONTINUF 

IFCIN.EO.l) IN-2 
TI-T(IN-l) 

TIC-2.*ddN + l)-T (IN— 1 ) WM 
CHAX-C (IN-1) 

TT-TI 

WR ITE ( JPT» 2 ) TI #TIC»CHAX 
DO 55 1-1 » M 
TI-TI4TIC 
D-A(l) 

K3 • N - 1 
DO 56 IJ-1.K3 
D-0+A(IJ+l)*C0S(IJ*TI) 

D-D/SINUI ) 

IF(O.LT.CNAX) GO TO 60 
CMAX-D 
TT-TI 

YY-0.5*d.-C0S(TTJ) 

GC-A C 1 ) *TT 

GH-Ad )*<TT-SIN(TT) )-A(2>*0.5*tTT-0.5*SIN(2.9TTH 
K3 • N - 1 
00 65 L«1*K3 
ST -S IN ( L*TT ) /L 
GC-GC4A(L+1 )*ST 

IF (UNe!i) 1 GM-GM-0.5*A(L41)*CSINC(L-1.)4TT)/CI-1.)4SIN( (l + l.WT) 

lmn.n 


VS 

7499 

vs 

7500 

vs 

7501 

vs 

7502 

vs 

7503 

vs 

7504 

vs 

7505 

vs 

7506 

vs 

7507 

vs 

7500 

vs 

7509 

vs 

7510 

vs 

7511 

vs 

7512 

vs 

7513 

vs 

7514 

vs 

7515 

vs 

7516 

vs 

7517 

vs 

7510 

vs 

7519 1 

vs 

7520 

vs 

7521 

vs 

7522 

vs 

7523 

vs 

7524 

vs 

7525 

vs 

7526 

vs 

7527 

vs 

752P 

vs 

7529 

vs 

7530 

VS 

7531 

vs 

7532 

vs 

7533 

vs 

7534 

vs 

7535 

vs 

7536 

vs 

7537 

vs 

753B 

vs 

7539 

vs 

7540 

vs 

7541 

vs 

7542 

vs 

7543 

vs 

7544 

vs 

7545 

) vs 

7546 
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65 CONTINUE 
6 C" 0 . 5 *GC 
GH-GH* 0.25 

ybar«gh/gc 

GK (K J » ID) »GC 
YBRO< » 10 ) "TBAR 

,0 FORHRt"*( / 2 X» 38 HCENTR 0 ID TO N»X. SUCTION FORCF, Y 8 RR -.FIO.SI 

77 ?S!IU J ";"io"oT»l SUCTION FORCE TO NRX. CLC/ICSINUIMMU 

1 F 10 . 5 ) 

60 TO 18 

17 YB AR ■ YBR ( *» ID ) 

18 CONTINUE 
YBARL-O. 

BA* 0 « 

BC-O. 

1 CC -0 

00 40 I * 1 » N 

KH-I+NK . . 

IF (N ASYN.EO. 1 . AND. I O.EO.l ) KH"N-NH +1 
IF(KB.EO.O.AND.I.EO.l) FST.COSCSWEEP(KH)) 

SWO-SWEEP(KH) 

IF(NASYN.EO.l.ANO.IO.EO.l) GO *0 31 


IFO'B.EO.l.ANO.I.EO.l) FST-COS(SWFFP(KH)-PK) 
IF(KB.E 0 . 2 . ANP.I.EO.l) F ST-COS < SWE EP ( KHI ♦ BK ) 

GO TO 32 
SVO--SVO 

IF(KB.E 0 . 1 »ANO.I«E 0 . 1 ) FST-COSCSWO^BK) 

3? CONTINUE 

IF(KB.EO.O) GO TO 81 
FSS-COS(SUEEP(YH)) 

IF (FSS .GT. 0.001 ) FT«SIN(SWO)/FSS 
SN-1 . 

IFCKB.F0.2) SN--1. 

BA-<U + 1.+2.*GB*SN + FT*GP2 
BC-BC41 . 

PI CONTINUE 

YY1-VN(N,1 ) 

YY2« YN (Nf 2 ) 

IF(NASYN.E 0 . 1 .ANr.ID.E 0 . 1 )YYl"ABS(VN(N» 2 )) 

IF(NASYP.EO.l.ANP.IO.EO.l) YY 2 *ABS < YNIN» 1 )) 

VR ITE ( JPT» 3 ) N,KH,N,NK 

RY1«(YY1-YREF)/HREF 

IFtRYl .GT.YBAR ) GO TO 45 

RY2«(YY2-YRFF)/HPEF 

IF(KB.EO.O) SWP-SWO 

IF(KB.EO.l) SWP«SWO-eK 


FST-COSC SVO*BK> 


VS 1 
VS 1 
VS * 
VS ■ 

vs 

vs 

vs 

vs 

vs 

>#vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 
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CRi3S?AL PACiE r: 

OK POOR QUALITY 


C-0 TO 43 


KZ*0 

IFINASYH.EO.l.ANO.ID.EO.l) KZ-1 
IFCK7.E0.1.AN0.KR.E0.1) SWP-SWO+BK 
IF(KB.E0.2> SWP-SWEEP(KH)4BK 

IF<ABS<SVP-PI/?.). IT. 0.001. OR. SVP.GT. PI/2.) 

FS-COS(SWP) „ 

IF(RY1.LT.YBAR.AN0.RY2.6T.YBAR) GO TO 42 
OY*( YY2-YY1 ) /FS 
YBARL-YBARL+DY/HPEF 
NI-M4NW(K,1) 

IF(NASYH.EO.l.ANO.ID.EO.l) NI»N-NW<K*1) 

N-NI 

ICOICC + l 
CONTINUE 

DY-(YBAR-<YY1-YREF)/HREF)/FS 
YBARI-YBARL4DY 
60 TO 45 
Y8ARL-10. 

CONTINUE 

IF (IAGVX.NE.O.AND.IO.EO.2) GO TO 46 
IF (KF . EO. 1. AND. ID.EO.l ) GO TO 48 
60 TO 47 
HH-HALFB(K) 

YBARL«YBARL*HREF/HH4(YREF-YYF)/(HH*FST) 

60 TO 47 
HH * H P e f ^yr e ^ 

IF(KB.E0.2.0R.KB.E0.0) YBARL-YPARLPHREF/HH4YREF/(HH*FST) 

CONTI NUF 

N»N+NU(K.1)*(N— ICC) 

IElNASYH.EO.l. ANT. IO.EO.l) 

IF (ICC .LT .M) KH-KH+M-ICC-l 

IF (NASYM.EO.l.ANO.ID.EO.l ) 

NK-KH 

WRITE ( JPT# 71 ) YPARl 

71 FORMAT (/2X.38HL.E. LEN6TH OF MAX. SUCTIOB 
IF (KJ .EO. 1 .AND. I X Y .EO. 2) GO TO 0 
Y-YBARL 

IMY.LT. 2. 5) ALPBOtK# ID) "9.195-Y4 ( ?3 .734-Y* < 60. 81-Y* ( 33 .533- 
1 Y*(7. 301-0. 581*Y)) )) 

IFCY.GE.2.5) ALPBD(K#ID)»38. 

IF(KB.EO.O) GO TO 82 
BA-SORT(BA/BC) 

0A*SIN(ALPBD(K»I0)*PI/1B0.) 

OA-OA/BA 

ALPB0(K»ID)«ATAN(0A/S0RT(1.-0A*0A) )*1B0./PI 
82 CONTINUE 

WRITE (JPT.75) ALP80 (K # ID ) 

TF(KB.FO.O) WRITE (JPT»76) 


40 

42 


43 

45 


46 


48 


47 


N"M*NW ( K» 1 ) ♦! 


KH-M 


CFNTROID *»F10.5 ) 


VS 7597 
VS 7598 
VS 7599 
VS 7600 
VS 7601 


VS 

7602 

VS 

7603 

vs 

7604 

vs 

7605 

vs 

7606 

vs 

7607 

vs 

760ft 

vs 

7609 

vs 

7610 

vs 

7611 

vs 

7612 

vs 

7613 

vs 

7614 

vs 

7615 

vs 

7616 

vs 

7617 

vs 

7 61ft 

vs 

7619 

vs 

76?0 

vs 

7621 

vs 

7622 

vs 

7623 

vs 

7624 

vs 

7625 

vs 

7626 

vs 

7627 

vs 

762ft 

vs 

7620 

vs 

7630 

VS 

762! 

vs 

763 2 

vs 

7632 

vs 

7634 

vs 

763 r » 

vs 

7636 

vs 

7637 

vs 

7633 

vs 

763* 

vs 

7640 

vs 

7641 

vs 

7642 

vs 

7643 

vs 

7644 

vs 

7645 
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IF(KI.EO.l) WRITF(JPT#77> 

IF(KB«E0.2) WRITE (JPT»78 ) 

7fc FORMAT (5X»52H (WITHOUT CAMBER CORRECTION » 
77 FORMAT(5X#55H (WITHOUT CAMBER CORRECTION# 
IP) ) 

7 ft FORM AT(5X#54H (WITHOUT CAMBER CORRECTION# 

■75 1 FORMAT C/2X»36HAIPHA FOR VORTEX BREAKDOWN 

1 ALPBO(K#I0)-ALPBD(K#ID)PPI/18O. 

GO TO 9 

90 ALPBD(K,ID)-0.5*PI 
YCMX(K,IO)-10. 

9 CONTINUE 
21 CONTINUE 

IFdV(K).EO.l) GO TO 22 
IFdCHK.EO.l) GO TO 26 
IF (IXY .EO. II GO TO 22 
26 CONTINUE 
K2 - MX (K I 
DO 25 IP»1#K2 
IF (KB .NE. 0) GO TO 27 
GG-GK(1#ID)/GK(2#IP) 

SA-SIN(ALP)*SOPT(GG) 

SB-1 .-SA*SA 


VS 

VS 

FOR SYMMETRICAL LOAOINGIIVS 

FOR RIGHT WING IN SIOESLIVS 

VS 

FOR LEFT WING IN SIDESLIPVS 

VS 

AT T.E. -»F10.5#2X#4HDEGVS 

VS 

VS 

VS 

VS 

VS 

VS 

VS 

VS 

VS 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 


7646 

7647 

7648 

7649 

7650 

7651 

7652 

7653 

7654 

7655 

7656 

7657 

7658 

7659 

7660 

7661 

7662 

7663 

7664 

7665 

7666 ' 

7667 

7668 

7669 

7670 


I; 
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OF PQQR 


' GE 13 

quality 


27 

25 

22 


eo 


c 

c 


0.) PA«AC0S(S0RT(SBH 

«ALPBO(K*ID)+PB 
0) ABD ( K» ID ) *PB 

•ALP80(K»ID)+ABD(K»ID) 


VORTFX LIFT 


PA-ALP 
IF (SB .GT. 

PB-ALP-PA 

ALPBO(K#IO)< 

IF (KB .EO. 

60 TO 25 

ALPBO(K»ID)' 

CONTINUE 
C ONT I N UE 

IF(IWING(K) . NE » 0 ) NK«NK+NS(K)-IWING(K) 

IF(NM(K#2) .EO.O) GO TO 80 
IF(K.EO.l) NK-NK+NS (K ) 

IF(K.GT.l) NK-NK+NS (K )-NS (K— 1) 

CONTINUE 

WRITE ( JPT» 3 ) NK»KH 
N-LPN(K)+1 
RETURN 
END 

FORTRAN NLSTIN 
FUNCTION FRATN(Y) 

OETERHINING THE FRACTION OF PEHAINING 
IF(Y.IT.1.A9) FRATN»0.131+0.384*Y 

IF (Y.GE.1.49.AND.Y.LT .3.72) FR ATN-O. 951-0. 20B*Y +0.02 CRY «Y 
IF(Y.GE.3.72) FRATN-0.5 
RFT1JRN ; . 

END 

FORTRAN NLSTIN 

^DETERHINING^THF ^ DECREASE IN ALPHA ( BDTE ) IN THE SITUATION 
AUGMENTED VORTEX LIFT 
COMMON /INOUT/ INPT#JPT 
K ■ 1 

IF (OX , GE . 0.72 ) GO TO 1 
IF (OX , GE .0.6) DA-6. 

IF(0X.GE.0.A5.AN0.hX.LT.0.6) DA -3. 

IF(DX.LT.0.45> DA-1. 

? OfHo!«607AA6-0.323027A8*OA+0.0‘)0<»90A2*DA*OA-0.01087976*DA**3 

^ F A-0 AMO. 4569744fc-D A* (0.1M5137 A— DA* ( O. 0303301 A— 0 A* (0.00271994 
1 -DA+O. 00009202 )>) > -OX 


WITH 


OB-DA-FA/DF 
IF (ABS (DB-DA) .LT.0.001 ) 
OA-OB 
K-K + l 

IF (K.EO.ll ) GO TO 5 
GO TO 2 

PB«8.+( 0X-0.72) /0.0226 
REDBD-DB 


GO TO 5 


VS 

7671 

vs 

7672 

vs 

7673 

vs 

7674 

vs 

767? 

vs 

7676 

vs 

7677 

vs 

7678 

vs 

7679 

vs 

7680 

vs 

76*1 

vs 

7662 

vs 

7683 

vs 

7684 

vs 

76B5 

vs 

7686 

vs 

7687 

vs 

7680 

vs 

7689 

vs 

7690 

vs 

7691 

vs 

7692 

vs 

7693 

vs 

7694 

vs 

7695 

vs 

7696 

VS 

7697 

vs 

7698 

vs 

7699 

vs 

7700 

vs 

7701 

vs 

7702 

vs 

7703 

vs 

7704 

vs 

7705 

vs 

7706 

vs 

7707 

vs 

770 6 

vs 

7709 

vs 

7710 

vs 

7711 

vs 

7712 

vs 

7713 

vs 

7714 

vs 

7715 

vs 

7716 

vs 

7717 

vs 

7718 

vs 

7719 
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ALP •»F10»5 ) 


WR ITE < JPT» 3) *>D* 

3 FORMAT (3X*3HK ■» I*#2X»11HDELTA 

RETURN 

ENO 

FORTRAN NISTIN 

^OETERHIHING^THE^IOCATION OF VORTEX-PRE.ROOHX POINI OH THE H1HG 

e0PT-*LP0T*(O.F56«74F6-ALPOT*(O»lE151?TE-*lPOT»t0.O3O33OlR 

j-ALPOT* < 0.0027199*- ALPDT*0.00009202) ) > ) 

GO TO 5 

1 BDPT»0.72+0.0226*<ALPDT-8.) 

5 RETURN 
ENO 

FORTRAN NLSTIN 


VS 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 


SUBROUTINE BE NO IN ( NC * CL » BM» I WING. BPE AK t CBNR »CPTR »NWING» HALFSH#H ALF VS 


VS 

VS 

VS 

VS 

VS 


1BH»DC»DS*IWGLT»FI#NASYN*NNC*KRL»NSUR»NS) e 

'to CALCULATE BENDING MOMENT DISTRIBUTION ON LIFTING SURFACES 
DIMENSION A(30) #BM( fe#l) »H(30) #PHI ( 30) »BRE AK (fe»l ) *Cl (1 ) 

DIMENSION DC ( 6» 1 ) » D S ( 6»1 ) » I WING (1 ) »NVING ( 1 1 * HAL FPH( 1 ) 1 1 UGLT (1 
DIMENSION NC ( 1 ) #NS ( 1 ) *CBMR ( 1 ) »CBTP Cl ) » FL (1 ) 

?JmSon /GEOM/ HALFSW.XCPC200).YCPC200),7CPC200)»XLE(100),YLEC100)»VS 

l*TE(100)»PSI(30)»CH(100)#XV(?CO)»YV(200)#SN(fc»15*23»XN(2CO»2)»YN(2VS 

200»2)»7N(200»2)»VI0THC6»5)»YC0N(51)»SWEFP(lOO)#HALFP*6)»SJ(fc#31»5)VS 

COMMON /CONST/ NCS»NCV»H1 C 6 » 5 ) » M JW1 ( 6» 2 » 5 > #M J V2 C 6» 2» 5 ) » N J V < 6» 5 ) t VS 
INPT* JPT 


1NFP(6)»NV<6#2) 

COMMON /INOUT/ 

PI»3. 1*1 59265 

KO-O 

KD-0 

DO 12 L-l.NSUP 

KOT-O 

KA-NS C L ) 

IFCL.GT.l) KA-KA-NS (L-l) 
NST-KA-M1(L»NC(L) HI 
IF (NASYM. EO.l .AND. KPL.E0.2) NST-0 
NKC-NC (L )-NNC 

NI-0 . , 

IFCNASYM.EO.l .AND. KPL.EO.O) NI-1 
SUMF-O. 

SUMM-O. 

SUMS *0 . 

FTL-O. 

AREA-HALFSV 

hab-halfb (L ) 

IF (IWGLT(L).EO.l) 

IF ( I WGLT (L ) . FO . 2 ) 

IF ( I WGLT (L ) • EO • 2 ) 

K2 ■ NC IL ) 


VS 

VS 


HAB-HALFBCL) 

AREA-HALFSV 

HAP«NALFB(L) 


VS 

VS 

VS 

VS 

VS 

VS 

VS 

VS 

VS 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 


7720 

7721 

7722 

7723 
772* 

7725 

7726 

7727 

7728 

7729 

7730 

7731 

7732 

7733 
773* 

7735 

7736 

7737 

7738 

7739 
77*0 
77*1 
77*2 
77*3 
77** 
77*5 
7T*6 
77*7 
77*8 
77*9 

7750 

7751 

7752 

7753 
77f>i 
77*^5 
77 56 

7757 

7758 

7759 

7760 

7761 
776? 
7763 
776* 

7765 

7766 

7767 

7768 
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* Cii, t 

OF Poor 


QUALITY 


DO 1 T*1>K2 
H«NC(L)-I*1 
i?»o 

IF<NI.E0*1 .AND. I.GT.NNC) GO TO 6 
IF (N AS YH . EO* 1 .AND. KRl.EO.2) GO TO 6 

DIHEFC-DC Cl#M>*DCCL»N-l>*0S(L»H)*DS<l»f1-l) 
IF(I.NE.NC(L) ) OIHEFS-OS(L#M*OC(L#H-1)-DC(L#H)*OS<L#H“1) 
IF (I.EO.NC(L)) GO TO 0 
60 TO 7 

6 AREA-HALFSW 
HAB-HAIFB ( L I 
M-I 

IP-1 

IF(KRL.EO.O) M-I-NNC 

IF(KRL.E0.0 .ANO. N.EO.NKC) GO TO 8 

IFCKRL.NF.O .AND. I.EO.NNC) GO TO 8 

DIHEFC«0C(L»N)*DC(L»N+l)*rS(L»8>*DS<L»N*ll 

DIHEFS-DS<L*M)*DC <L»H+1)-DC (L »H > *0 S ( L » M*1 ) 

GO TO 7 
8 DIHEFC-1. 

OIHEFS-0. 

7 CONTINUE 

WSPAN-WIDTH(L#M)*0.5 
NN -M 1 ( L » M ) -1 
NHl-HKL.H) 

FH-MM1 

IF l 8 .EO.NWING ( L ) ) AP EA-HALFSV 
IF (H.EO.NWING(L) ) HAB-HALFB ( L ) 

IF(NASYH.EO.O) GO TO 18 
IF(KRL,EO.O) GO TO 18 
IF(I.GT.NNC) GO TO 19 
18 CONTINUF 

00 2 J-l.MM 
FJ-J 

JJ-NST ♦ J + KD 
kh-nst+j+ko 

IF<NVll»2).EQ.0) GO TO AO 
IFCL.EQ.il II-KN + NSU) 

IFCL.GT.l) II -KH+NS (L )— NS (L—l) 

CHORO-CH(KM)+CH(II) 

GO TO A 1 
AO CHORO-CH(KP) 

A1 CONTINUF 

C WRITE (JPT, 100) NST»KD» KH, II, JJ 

PHI<J)«FJ*PI/FM 
H< J)-CL( JJ)*CHORD*SJ(L#J#t*> 

2 CONTINUE 
00 3 J -1» HN1 


VS 

7769 

vs 

7770 

vs 

7771 

vs 

7772 

vs 

7773 

vs 

7774 

vs 

7775 

vs 

7776 

vs 

7777 

vs 

7770 

vs 

7779 

vs 

7700 

vs 

7701 

vs 

7702 

vs 

7703 

vs 

770 A 

vs 

7705 

vs 

7706 

vs 

7787 

vs 

77 00 

vs 

7709 

vs 

7790 

vs 

7791 

vs 

779 2 

vs 

7793 

vs 

779 A 

vs 

7795 

vs 

7796 

vs 

7797 

vs 

7798 

vs 

7799 

vs 

7800 

vs 

7801 

vs 

7802 

vs 

780 3 

vs 

7804 

vs 

7805 

vs 

7806 

vs 

7807 

vs 

780 p 

vs 

7809 

vs 

7810 

vs 

7811 

vs 

7012 

vs 

7813 

vs 

7814 

vs 

7615 

vs 

7816 

vs 

7817 
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A ( J ) ■ 0 . 

F J*J 

.00 A K»1#BM 

4 A(J)-A ( J)*H(K )*C0S( (FJ-1.)*PHI(K)) 
If <J ,F0. 1) A(J)«AU)/FK 
IF (J .NE. 1) A(J)-ACJ)*?./FM 
3 CONTINUE 
19 CONTINUE 

00 10 K«1»NH1 
JK-NM1-K 

IF«NASYN.E0.1 .AND. KRI.F0.2) 


JK-K 
I.GT.NNC) JK-K 


IF(NI.E0.1 .ANO. 

kk-jk+nst 

kl-kk+ko 

WRITE! JPT, 100) KK,KL,KO,JK 
106 FORMAT (5(6X#I4) ) 

IF (NASYH.EO.O) GO TO 25 
IF(KRL .EO.O) GO TO 25 
IF(I.GT.NNC) GO TO 26 
25 CONTINUE 

IF(K.EO.MMl) GO TO 15 

8SPAN-BREAK(L,M>-YIE(KL)«-VSPAN 

SNAM-O. 


VS 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 


IF(IP« E0«1 ) SNAM.<A<l)*BSPAN-0.5*A<2)*VSPAN)*PI*VSPAN/(2.*APFA*HAe.VS 


VS 

vs 

vs 

vs 

vs 


1 SUM-A<1)*( (PI-PHI ( JK> )*BSPAN4SIN(PHI ( JK >) *VSP AN )-0 . 5* A < 2 ) * VS? AN * ( 

jpi_PHI(JK)-SIN(2.*PHI(JK))/2.)“A(2)*SIN(PHI(JK))*BSPAN 

DO 11 J-2»MH 

11 SUM-SUM- RSPAN*A ( J *1 ) * S I N ( F J*PHI ( JK ) ) /FJ+WSPAN*0»5*A (J+l ) • ( S IN ( ( FJ+VS 

11«)*PHI(JK))/(FJ+1») + SIN((FJ-1»)*PHI(JK))/(FJ— 1«)) 

BM(L.KK)-VSPAN*SUM/ (2.*ARFA*HAB) ♦SUMN4SUHF*( BREAK (L»(M+1-IP) i-yle< vs 
1KI ) ) ♦ (-1 . >+* IP-SNAM 
GO TO 10 
15 BSPAN-WSPAN 

IF(IP.EO.l) BSPAN--VSPAN 
SUH* { A (1)*BSPAN-0.5*A(?)*WSPAN)*PI 

WS PAN*SUN / ( 2 • • AP E A*HAB ) +SUNM4SUMF4 ( 8RE AK ( L » M+l J-BREAK ( L »N) ) 

GO TO 10 


VS 

VS 

VS 

VS 

VS 

VS 

VS 

VS 


c 

c 


26 BM<l.KK)«0. 

10 CONTINUE 

KQT-K0T+MM1-1 

WRITE (JPT.50) ( A(K ) #K-1#MM1 ) 

WRITE(JPT»50) WSP AN» SUM» ARE A»HA8,SUMN»SUMF 
IF(NASYM.EO.O) GO TO 27 
IF(KRL.EO.O) GO TO 27 
IF (I.GT.NNC > GO TO 29 

27 CONTINUE 


VS 

VS 

VS 

VS 

VS 

VS 

VS 

VS 

VS 


781* 

7819 

7820 

7821 

7822 

7823 

7824 

7825 

7826 

7827 
7B2P 

7829 

7830 
7631 

7832 

7833 

7834 

7835 

7836 

7837 

7838 
7P39 

7840 

7841 
7«4? 
78 41' 

7844 

7845 

7846 
7*47 
784P 

7849 

7850 
7R51 
7 8 52 

7853 

7854 

7855 

7856 

7857 


7858 

7859 

7860 

7861 

7862 

7863 

7864 

7865 

7866 
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ORIGINAL fs 

OF POOR QUALITY 


Pl-A(l )*PI*WSPAN/( 2 .*AREA*HAB> VS 

SUMF- (SUMF+Pl )*OIHEFC-SUM$*DIHEFS VS 

SUMS«(SUMF+P 1 )*DIHEFS+SUMS*DIHEFC VS 

29 CONTINUE VS 

IF (M.EO. (NWINGtL )+l) .ANP.IWINGCL > .NE.O) GO TO 16 VS 

GO TO 17 VS 

16 SUMT • S UMM VS 

FTL-SUHF VS 

IF (IWGLT(L).EO.l) GO TO 17 VS 

SU*M» 0 . VS 

SUMF ■ 0 « VS 

SUHS-O. vs 

17 CONTINUE VS 

IF (NI • EO . 1 .AND. I.EO.NNC) GO TO 30 VS 

IF (I.EO.NCtL)) GO TO 20 VS 

IFtNASYM. EO.l .AND. KRL.E 0 . 2 ) GO TO 28 VS 

IF (NI . EO . 1 .AND. I.GT.NNC) GO TO 28 VS 

NST-NST-H 1 (L»H- 1 )+l VS 

GO TO 1 VS 

28 NST-NST+H 1 (L#H )-1 VS 

GO TO 1 VS 

20 NST -0 VS 

GO TO 1 VS 

30 SUMT-SUMM VS 

FTL-SUMF VS 

SUMM-O. VS 

SUHF-O. VS 

SUHS-O. VS 

NST -0 VS 

1 CONTINUF VS 

CBNR ( L ) -SUMM VS 

CBTR ( L ) -SUHT VS 

FL (L ) -FTL VS 

KQ-KOT+KO VS 

KD-KD+KOT VS 

IF ( N V ( L » 2 ) . NE • 0 .AND. L.EO.l) KO-KO+NS(L) VS 

IF (NU{ L, 2 ) .NE.O .AND. L.GT.l) KO-KO+NS (L )-NS (L-l ) VS 

12 CONTINUF VS 

50 FORMAT ( 5 F 10 . 5 ) VS 

51 FORMAT ( 5 ( 6 X»I*)> VS 

RETURN VS 

END VS 

C FORTRAN NISTIN VS 

SUBROUTINE RACK VH ( X# Y # 7 # L P ANEL » B > LP AN 1 # NW# GAMM A# VX , L AT >CD» SO » YK# VS 
10 C.DS. VT# IWING, ZB »YB#YRB»NCS#IWGLT»IV,NC 1 »KF, BREAK) VS 

C TO CALCULATE BACKWASH DUE TO IMAGE VORTICES IN GROUND EFFECT VS 

DIMENSION NW( 6 » 1 )#GAMMA( 1 )»U(?)»YK( 6 # 1 )#DC( 6 » 1 )»DS( 6 » 1 ) VS 

1 #LPAN 1 ( 1 )»IWING( 1 )#TV( 1 )#IWGIT( 1 )»PRFAK( 6 # 1 ) VS 


COMMON /GEOM/ HALFSW#XCP(200)»YCP(200)»ZCP(200)#XLE(100)#YLF(100)»VS 


7867 

7868 

7869 

7870 

7871 
7P72 

7873 

7874 

7875 

7876 

7877 

7878 

7879 

7880 

7881 

7882 
788? 

7884 

7885 

7886 
7 8 o 7 
78 8 8 
7880 
7890 
7801 
7892 
7 8 93 
•>394 
7395 

7896 

7897 

7898 

7899 
7 9 CD 
7901 
7302 
790? 
7909 

7905 

7906 

7907 

7908 

7909 

7910 

7911 

7912 

7913 

7914 

7915 
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1XTE(100)» ;a!ii;siSTO?2i5”wSun:iSs5f?;ooii5sKs«2"w?5J5»?i"i 
2 ?S;«J; / K^lt .IC»U.M,ITWSt(6.,IST<6.,HG li 0,HEI0HT, VS 

liTT»HC (6)#NVING(6l»IE0Sffcl»IAlP»0U(*T(3»6»lS)#H*Lf6H(6) VS 

81"B VS 

IZ-1 VS 

IFF-1 VS 

IPN-1 v< 


7916 

7917 

7918 

7919 

7920 

7921 

7922 

7923 
792* 


IW-1 

NASYN • YCON ( 50 ) 

ZA-O. 

YA-BREAK(1>1) 

YA A- 8 R F AK (1*1) 

IF(NASYH.EO.O) GO TO 30 
YA-YK (1#NC1) 

YAA-YA 

IFCMC1.E0.1) GO TO 30 

NC11-NC1-1 

00 31 J-1#NC11 

ZA-Z A ♦ ( YK ( 1 * J )-YK <1>J*1))*D$(1*J+1) 

31 YAA-YAA-MYK (1. J )-YK (1 * J+l ) ) *DC ( 1 » J *1 ) 
YA-YK(l.l) 

30 CONTINUE 
YAP-YA 
YAAP-YAA 
MN-NW < 1* 1 1 
l-l 
IP-1 
vx-o. 

VT-O. 

DO 10 J-l»LPANEl 
ISN-1 

NN-NW ( L# 1 ) 

COSO-DC ( L » I PN ) 

SINO-DS(L#IPN) 

J J ■ J 

HI-J-IFF+l 

IF (J.GT.LPANl(L).AND.J.lE.lPN(L)) ISN-2 
IF< J.GT.lPANKl ) .AND. J .LE .LPN(L) ) NN-NW (1*2) 
FN-NN 
NK *N N 

IF(J.GE.LPAN1 (L ) . AND. J .LT.LPN (l ) ) NK-NW(l#2) 
IF ( J. E 0. L PN ( L ). AND. J.LT.L PANEL) NK-NU< 1+1*1 ) 
Xl-XN ( J *1 )”X 
X2-XN ( J * 2 )-X 
X12-YN( J»2)-XN( J* 1) 

Y12-YNCJ»2)-YN( J,l) 

Z12-ZN(J»2)-ZN( J»1)+Y12*SIND 
Y12- Y1 2*C0SD 


VS 

7925 

vs 

7926 

vs 

7927 

vs 

7928 

vs 

7929 

vs 

7930 

vs 

7931 

vs 

7932 

vs 

7933 

vs 

793 A 

vs 

7935 

vs 

7926 

vs 

7937 

vs 

7938 

vs 

7939 

vs 

7940 

vs 

7941 

vs 

794? 

vs 

7943 

vs 

7944 

vs 

7945 

vs 

7946 

vs 

7947 

vs 

7948 

vs 

7949 

vs 

7950 

vs 

7951 

vs 

7952 

vs 

7953 

vs 

79*4 

vs 

7 955 

vs 

7956 

vs 

7957 

vs 

7953 


VS 79 e; 9 
VS 7960 
VS 7961 
VS 796? 
VS 7963 
VS 7964 
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Z1-7N( J#1 )-(2 + 7B+(Y-YB)*Sr>) + 7A+(YN(J#l )-YA)*SIN0 

VS 

7965 

72-ZN( J,2 )-(7+ZB+(Y-YB)*SD)*ZA+(YN ( J # 2 )-YA ) *S INO 

VS 

7966 

X7J«X1*Z12-Z1*X12 


VS 

7967 

ISM-2 


VS 

7968 

IF (IV(L).EO.l) ISM-1 


VS 

7969 

IF(NASYM.E0.1 ) ISM-1 


VS 

7970 

DO 16 II-liISM 


VS 

7971 

FCP-1. 


VS 

7972 

IF (II .EO. 2) FCP— 1. 


VS 

7973 

YC-FCP*(Y8R+(Y-YB)*CP) 


VS 

7974 

Y1«YAA4(YN( J,l)-YA)*COSD-YC 


VS 

7975 

Y2-YAA-MYN< J # 2 ) -Y A ) ♦CPSD-YC 


VS 

7976 

XYK-X1*Y12-Y1*X12 


VS 

7977 

YZI-Y1*Z12-71*Y12 


vs 

7978 

ALR1-XYK*XYK+X2J*X7J+B1*YZI*Y7I 


vs 

7979 

R161-SOPT (X1*X1+B1*Y1*Y1+B1*71*71) 


vs 

7980 

R2B1-S0PT(X2*X2*B1*Y2*Y2*B1*72*7?) 


vs 

7081 

UU81- ( X2*X12+B1*Y2*Y12+B1*Z2*712)/R2B1-(X1+X12+B1*Y1*Y12+R1*71*712VS 

7982 

1 ) /R181 


vs 

7983 

G1-(1.-X1/R1R1)/(Y1*Y1+?1*Z1) 


vs 

7904 

G2- ( 1 • -X2/R2B1 ) / ( Y2*Y?4Z2*72) 


vs 

7985 

IF (LAT.NE.O.AND.IV(L) .EQ.O) GO TO 

14 

vs 

7986 

IF(KF.EO.O) GO TO 14 


vs 

7087 

IF(IP.NF.l) GO TO 14 


vs 

7080 

Gl-0. 


vs 

7989 

14 CONTINUE 


vs 

7990 

F1-UUR1*XYK/ALR1 


vs 

7991 

F2 — Y2*G2*Y1*G1 


vs 

7002 

F4«-XZJ*UUB1/ALB1 


vs 

7993 

F 5-Z 2 * G2-Z 1 *G1 


vs 

7994 

F 1 2 — — t F1 + F2 ) 


vs 

7095 

FA5-F44F? 


vs 

7906 

IF (LAT .FO. 0) F45-F45*FCP 


vs 

7097 

IF (LAT .NF. 0) F12-F12*FCP 


vs 

7998 

F3-UU81*YZI/ALB1 


vs 

7909 

IF (LAT ,NE. 0) F3-F3*FCP 


vs 

8000 

U(II )-F3*CH(IZ)*SN(L#MI»ISN)*GAMMA(JJ)/(8.*FN) 

vs 

8001 

VT-VT+(F12*S0+F45*CD)*CH( IZ )*SN(L» 

MI,ISN)*GAMMA(JJ)/(8.*FN) 

vs 

8002 

16 COST I NUF 


vs 

8003 

VX-U(1)4U(2)+VX 


vs 

8004 

IF(J.LT.MM) GO TO 6 


vs 

P005 

IF(J.EO.LPANFL) GO TO 10 


vs 

8006 

IZ-IZ+1 


vs 

P007 

IW-IW+l 


vs 

8008 

IFF-MM+1 


vs 

8009 

HM-MM4NK 


vs 

8010 

IF (IWING(L).NF.0.AN0.IW.E0.(IWING(L)+1)) GO TO 17 

vs 

8011 

IF(J.E0.LPAN1 (L ) .OR.J.FQ.LPN(l) ) GO TO 5 

vs 

0012 

IF (YLE(IZ) .LT«YK (L» IPN ) ) GO TO 6 


vs 

8013 
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17 CONTINUE vs 

NJ-0 v c 

IF(NASYM.EO.l.AND.IPN.LT.NCl) NJ-1 *5 

IFCNJ.EO.il IPN-IPN+l ’* 

2A-*A>(YKCL»IPN)-VA)*0S(L.IPN) *S 

YAA-YAA4(YK (l#IPN)-YA)*DC(L»IPN) ’S 

YA-YK(L.IPN) „„ l' 

IF (IWING(L).NE.0.AND.IV.E0.(IVING(L)4l)> 60 TO 20 VS 

GO TO 21 yl 

20 IF (IWGLT(L).EO.l) GO TO 21 *s 

5 7a-o. v ; 

YA-BREAK(L>1 ) 

YAA-BRFAK (l ,1) 

IF(NASYM.EO.l.AND.J.FO.LPANKL)) YA-YAP *; 

IF(NASYN.EO.l.AND.J.EO.LPANKL)) YAA-YAAP *S 

IF(J.EO.LPN(L).AND.L.LT.M YA-PPFAK ( L*1 »1 ) VS 

IF ( J .EO.L PN (L ) . AND. L .LT. 6 ) YA A-PP E AK ( l +1 » 1 ) VS 

IF(J.E0.LPAN1(L).0R.J.E0.LPN<L)) GO TO 21 VS 

IF (IWGLT(L) .NF.2) GO TO 21 *S 

7A-YK(L»NC(L)-2)*DS(L»1 ) V^ 

YAA-YK(L,NC(L)-2)*DC(L»1) ’5 

YA-YK(L#NC(L)-2) ** 

21 CONTINUE Vb 

IF(NJ.NF.l) I PN • I PN +1 VS 

IF (J.EO.LPANl(L).OR.J.EO.LPN(L)) IPN-1 VS 

6 CONTINUF It 

KH-0 It 

IF(J.E0.LPAN1(L).AN0.J.NE.LPN(L)) KH«1 VS 

IF(KH.EO.l.AND.L.EO.l) IW-IW-NS(L) VS 

IF(KH.FO.l.AND.L.GT.l) I V - 1 V-NS ( L > +N S < L-l ) V> 

IF (J . F0.LPAN1 (L ) ) IP-1 V5 

IFCJ.EO.LPNIU ) IP-1 VS 

10 IF ( J.EO.LPN(L) ) L-L + 1 V- 

PETURN vs 

END I; 

FORTRAN NLSTIN ,b 

SUBROUTINE DRAG ( C L T# YBR E AK #NC t TF L P» N AL ) V| 

TO CALCULATE THE FAR-FIELD INDUCED DRAG VS 

DIMENSION ALPHI ( 50) » YBREAK (6# 1 )* TFLP ( 6# 1 ) # XK ( 50) # YK (50) »NC VS 

1 ( 1 ) » N A L ( 1 ) VS 

COMMON /GEOM / HALFSW#XCP(200)>YCP(200)»7CP(200).XLE(100)rYLE(100)#VS 

1XTE(100) *PSI ( 30 ) #CH (100) # XV(200)»YV( 200 ) »SN (6»15» 2) * XN( 200» 2 ) »YN( 2VS 
200,2). 7N(200,2) . WIDTH ( 6 . 5 ) # YCON ( 51 ) . SWEEP ( 1 00 ) »HALFP ( 6 ) » S J ( 6» 31 » 5 ) VS 
COMMON /AERO/ AM»B#CL ( 50) »CT< 50) >CD( 50) »CM ( 50) VS 

COMMON /CONST/ NC S> NC V» Ml ( 6 » 5 ) t H J W1 ( 6# 2# 5 ) # M J V2 ( 6 » 2 # 5 ) * N J V ( 6 * 5 ) t VS 
1NFP(6).NW(6,2) V^ 

COMMON /INOUT/ INPT»JPT v * 

M ’ 41 VS 

PI-3.1 A15R265 VS 
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ns-(n*i 1/2-1 

MMl-M-1 

FH-N 

00 3 I “1# NS 

FI-I 

J-H-I 

XK(I)«SINCFI*PI/FM) 

XK(J).XK(I) 

YK(I)«-COS(FI*PI/FM) 

3 YK C J ) •— YK(I) 

00 4 I ■ 1# NC S 

4 CH(I) -SORT <1.-{YLE(I) /HAL FB(1))**2) 
IC-1 

BREAK-YBREAM 1, 1 ) 

MST-1 

HEN0-N1 (1,1 )-l 
DO 5 I-1,NS 
YCON(I)»0. 

CO(I )-0. 

II-NS+I 

BB«YK( II)*HALFB(1) 

IF (BB .LE. BREAK) 60 TO 32 

NK-MK1, IC )-l 

IC-TC+1 

NO-Mld, 10-1 

BRFAK«YBREAK(1,IC) 

HST-MST+NK 
HENO-MEND+NO 
12 CONTINUE 

DO 6 J *NST» NEND 

IF (NW(1, 2J.E0.0) GO TO 60 

Jl-J+NCS 

CHORO»CH( J)+CH( Jl) 

GO TO 61 

60 CHORD-CH(J) 

61 CONTINUE 

A-l. 

DO 7 K«NST,MPNP 

IF (K .EO. J) GO TO 7 

A- A* (BB-YLE (K ) ) / ( Yl E ( J ) -YL E CK ) ) 

7 CONTINUE 

CD(I)»CD<I)+A*Cl(J)*CM(J) 

6 YCON< I >«YCON(I)+A*CHOR0 

CD(I) -CD ( I ) / S OPT ( 1 YK (II )** 2 ) 

5 CONTINUF 
00 10 I«1,NS 
AlPHI ( I)-0. 

IN-NS+I 
00 IB J •! , NH1 


VS 

8063 

vs 

*064 

vs 

*065 

vs 

8066 

vs 

8067 

vs 

8068 

vs 

8069 

vs 

8070 

vs 

8071 

vs 

8072 

vs 

8073 

vs 

8074 

vs 

8075 

vs 

8076 

vs 

8077 

vs 

8078 

vs 

8079 

vs 

80*0 

vs 

8081 

vs 

8082 

vs 

8083 

vs 

8084 

vs 

8085 

vs 

P086 

vs 

8087 

vs 

8086 

vs 

8089 

vs 

6090 

vs 

8091 

vs 

8092 

vs 

8093 

vs 

8094 

vs 

8093 

vs 

6096 

vs 

8097 

vs 

8098 

vs 

6099 

vs 

8100 

vs 

6101 

vs 

8102 

vs 

8103 

vs 

8104 

vs 

8105 

vs 

6106 

vs 

8107 

vs 

eioe 

vs 

8109 

vs 

8110 

vs 

8111 
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IF (J .EG. IN) GO TO 20 

FACTOR -2 ^ -1 • ) *♦ INDEX-1. ) *XK I J)/ (FM*(YKI J)-YK (IN) )**2 ) 
60 TO 25 

20 FACTOR “FM/XK t J ) 

25 IF (J .GT. NS) GO TO 30 
JJ-H-J-NS 
60 TO 35 
30 J J * J — N S 

35 ALPHI ( I)*ALPHI (I)+CD(JJ)*YCON(JJ)*FACTOR 
15 CONTI NUF 

ALPHI(I)-ALPHI(I)/(16.*HALFBU)) 

10 CONT I NUF 
CDI'O. 

00 AO I-l.NS 
IN-NS+I 

AO COI-CDI*CD(I)*YCON(I)*ALPHI (I)*XK«IN) 

C0I-CDI+HALFB(1 ) ♦ P I / < HAL F SW*FM ) 

C0L2-C0I/(CLT*CLT) 

WRITE (JPT.A5) CDI 
WRITE ( JPT» 50) C0L2 

A 5 FORMAT (/2X.23HFAR-FIFLD INOUCED PRAG-.F10.5) 

50 FORMAT (/2X.33HFAR-FIELD INDUCED DRAG PARAMETER -»F1 0. 5 ) 
RETURN 
ENO 


VS 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 

vs 


8112 
8113 
811 A 

8115 

8116 

8117 

8118 

8119 

8120 
8121 
8122 
8123 
812 A 

8125 

8126 

8127 

8128 
812Q 

8130 

8131 

8132 
0133 
81 3 A 

8135 
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